code typo

v6.3-exception
Matthew Butterick 7 years ago
parent 6b9dd5a011
commit 9c97fe31d7

@ -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 '~a args)) (define src-datums (format-datums '~a src-lines))
(define module-datum `(module funstacker-mod "funstacker.rkt" (define module-datum `(module funstacker-mod "funstacker.rkt"
(handle-args ,@handle-datums))) (handle-args ,@src-datums)))
(datum->syntax #f module-datum)) (datum->syntax #f module-datum))
(provide read-syntax) (provide read-syntax)

Loading…
Cancel
Save