Full conversion done

private/log.rkt

@@ -1,22 +1,17 @@
 #lang racket/base
 
-(require racket/file
-         simple-log)
+(require simple-log)
 
-(provide setup-logging!
-         dbg-alm
-         info-alm
-         warn-alm
-         err-alm
-         fatal-alm
-         sync-log-alm)
+(provide dbg-am
+         info-am
+         warn-am
+         err-am
+         fatal-am
+         sync-log-am)
 
-(sl-def-log audio-library-manager alm)
+(define log-defined #f)
+(displayln (format "log-defined: ~a" log-defined))
+(set! log-defined #t)
+
+(sl-def-log audio-manager am)
 
-(define (setup-logging! log-file display-log?)
-  (make-directory* (let-values ([(base name dir?) (split-path log-file)]) base))
-  (if display-log?
-      (sl-log-to-file&display log-file)
-      (sl-log-to-file log-file))
-  (sl-set-log-level 'debug)
-  (info-alm "logging initialized: ~a" log-file))