source typo

v6.3-exception
Matthew Butterick 7 years ago
parent 73fb09a017
commit b16e11a8a2

@ -1,10 +1,10 @@
#lang br/quicklang #lang br/quicklang
(define (read-syntax path port) (define (read-syntax path port)
(define args (port->lines port)) (define src-lines (port->lines port))
(define handle-datums (format-datums '(handle ~a) args)) (define src-datums (format-datums '(handle ~a) src-lines))
(define module-datum `(module stacker-mod stacker-demo/stacker (define module-datum `(module stacker-mod stacker-demo/stacker
,@handle-datums)) ,@src-datums))
(datum->syntax #f module-datum)) (datum->syntax #f module-datum))
(provide read-syntax) (provide read-syntax)

Loading…
Cancel
Save