-

private/utils.rkt

@@ -5,6 +5,7 @@
            ffi/unsafe
            setup/dirs
            "downloader.rkt"
+           simple-log
            )
   
   (provide while
@@ -12,8 +13,15 @@
            build-lib-path
            get-lib
            do-for
+           dbg-sound
+           info-sound
+           err-sound
+           warn-sound
+           fatal-sound
            )
 
+  (sl-def-log racket-sound (current-logger) sound)
+
   (define-syntax while
     (syntax-rules ()
       ((_ cond body ...)