-

main.rkt

@@ -159,7 +159,7 @@
 
 (define-syntax (sl-def-log stx)
   (syntax-case stx (log-callbacks)
-    ((_ id parent prefix)
+    ((_ id prefix parent)
      (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)]
@@ -170,11 +170,11 @@
        #'(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 name)
+     #'(sl-def-log id name #f)
      )
     ((_ id)
-     #'(sl-def-log id #f id)
+     #'(sl-def-log id id #f)
      )
     )
   )