more consistent

pull/21/head
Matthew Butterick 5 years ago
parent 06a0c155ab
commit ac5daac9ea

@ -38,7 +38,7 @@
(define (read-syntax src ip) (define (read-syntax src ip)
(define parse-tree (parse src (λ () (tokenize-1 ip)))) (define parse-tree (parse src (λ () (tokenize-1 ip))))
(strip-context (strip-bindings
(with-syntax ([PT parse-tree]) (with-syntax ([PT parse-tree])
#'(module mod-name precalc-demo #'(module precalc-mod precalc-demo
PT)))) PT))))
Loading…
Cancel
Save