-

main.rkt

@@ -159,19 +159,22 @@
 
 (define-syntax (sl-def-log stx)
   (syntax-case stx (log-callbacks)
-    ((_ id parent)
-     (with-syntax ([receiver (format-id #'id "receiver-~a" #'id)]
-                   [dbg-name (format-id #'id "dbg-~a" #'id)]
-                   [info-name (format-id #'id "info-~a" #'id)]
-                   [warn-name (format-id #'id "warn-~a" #'id)]
-                   [err-name (format-id #'id "err-~a" #'id)]
-                   [fatal-name (format-id #'id "fatal-~a" #'id)]
+    ((_ id parent prefix)
+     (with-syntax ([receiver (format-id #'id "receiver-~a" #'prefix)]
+                   [dbg-name (format-id #'id "dbg-~a" #'prefix)]
+                   [info-name (format-id #'id "info-~a" #'prefix)]
+                   [warn-name (format-id #'id "warn-~a" #'prefix)]
+                   [err-name (format-id #'id "err-~a" #'prefix)]
+                   [fatal-name (format-id #'id "fatal-~a" #'prefix)]
                    )
        #'(def-log2 id parent receiver log-callbacks dbg-name info-name warn-name err-name fatal-name)
        )
      )
+    ((_ id parent)
+     #'(sl-def-log id parent id)
+     )
     ((_ id)
-     #'(sl-def-log id (current-logger))
+     #'(sl-def-log id (current-logger) id)
      )
     )
   )