self-expanding

pull/21/head
Matthew Butterick 6 years ago
parent 02a4d9a50e
commit d116cfcb82

@ -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 ...)))))

@ -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]))

@ -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]))
Loading…
Cancel
Save