diff --git a/beautiful-racket-demo/read-only-demo/main.rkt b/beautiful-racket-demo/read-only-demo/main.rkt index 73bfd14..784ddf4 100644 --- a/beautiful-racket-demo/read-only-demo/main.rkt +++ b/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 ...))))) \ No newline at end of file diff --git a/beautiful-racket-demo/taco-compiler-demo/main.rkt b/beautiful-racket-demo/taco-compiler-demo/main.rkt index 0e9d208..d5e1f7c 100644 --- a/beautiful-racket-demo/taco-compiler-demo/main.rkt +++ b/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))))) \ No newline at end of file + #'(module tacofied taco-compiler-demo + PT)))) + +(define-macro (mb PT) + #'(#%module-begin + (for-each displayln 'PT))) +(provide (rename-out [mb #%module-begin])) diff --git a/beautiful-racket-demo/taco-decompiler-demo/main.rkt b/beautiful-racket-demo/taco-decompiler-demo/main.rkt index a42d9c3..7d14c6b 100644 --- a/beautiful-racket-demo/taco-decompiler-demo/main.rkt +++ b/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)))))) \ No newline at end of file + #'(module untaco taco-decompiler-demo + PT)))) + +(define-macro (mb PT) + #'(#%module-begin + (display (list->string 'PT)))) +(provide (rename-out [mb #%module-begin])) \ No newline at end of file