         (world-send-packet World_SendPacket [void* i32 byte* reply-callback] byte)
         (world-copy-sound-buffer World_CopySndBuf [void* i32 sound-buffer* byte byte*] i32)))
 
+    (loadlib libc)
     (loadlib lib-scsynth)))
+
+(defn flush-all
+  []
+  (fflush nil))
 
 (defn set-world-options!
   [ptr option-map]


(defonce __LOAD_SCSYNTH_NATIVE_LIB__
  (do
    (defclib
      lib-scsynth
      (:libname "scsynth")

  "Starts the synthesis server main loop, and does not return until the /quit message
  is received."
  [sc]
  (flush-all)
  (world-run (:world sc)))

(defn scsynth-get-buffer-data
