self-expanding

beautiful-racket-demo/read-only-demo/main.rkt

@@ -9,5 +9,5 @@
                           (loop (cons tok toks)))))
     (strip-bindings
      (with-syntax ([(EXPR ...) s-exprs])
-       #'(module read-only-mod racket
+       #'(module read-only-mod br
            EXPR ...)))))

beautiful-racket-demo/taco-compiler-demo/main.rkt

@@ -20,5 +20,10 @@
   (define parse-tree (parse src toks))
   (strip-context
    (with-syntax ([PT parse-tree])
-     #'(module tacofied br
-         (for-each displayln 'PT)))))
+     #'(module tacofied taco-compiler-demo
+         PT))))
+
+(define-macro (mb PT)
+  #'(#%module-begin
+     (for-each displayln 'PT)))
+(provide (rename-out [mb #%module-begin]))

beautiful-racket-demo/taco-decompiler-demo/main.rkt

@@ -20,5 +20,10 @@
   (define parse-tree (parse src toks))
   (strip-context
    (with-syntax ([PT parse-tree])
-     #'(module untaco racket
-         (display (list->string 'PT))))))
+     #'(module untaco taco-decompiler-demo
+         PT))))
+
+(define-macro (mb PT)
+  #'(#%module-begin
+     (display (list->string 'PT))))
+(provide (rename-out [mb #%module-begin]))