strip-bindings

pull/23/head
Matthew Butterick 5 years ago
parent 3999b3515b
commit efa9ce3264

@ -18,7 +18,7 @@
(define (read-syntax src ip) (define (read-syntax src ip)
(define toks (tokenize ip)) (define toks (tokenize ip))
(define parse-tree (parse src toks)) (define parse-tree (parse src toks))
(strip-context (strip-bindings
(with-syntax ([PT parse-tree]) (with-syntax ([PT parse-tree])
#'(module tacofied taco-compiler-demo #'(module tacofied taco-compiler-demo
PT)))) PT))))

Loading…
Cancel
Save