|
|
@ -2,9 +2,9 @@
|
|
|
|
|
|
|
|
|
|
|
|
(define (read-syntax path port)
|
|
|
|
(define (read-syntax path port)
|
|
|
|
(define args (port->lines port))
|
|
|
|
(define args (port->lines port))
|
|
|
|
(define arg-datums (format-datums '~a args))
|
|
|
|
(define handle-datums (format-datums '~a args))
|
|
|
|
(define module-datum `(module funstacker-mod "funstacker.rkt"
|
|
|
|
(define module-datum `(module funstacker-mod "funstacker.rkt"
|
|
|
|
(handle-args ,@arg-datums)))
|
|
|
|
(handle-args ,@handle-datums)))
|
|
|
|
(datum->syntax #f module-datum))
|
|
|
|
(datum->syntax #f module-datum))
|
|
|
|
(provide read-syntax)
|
|
|
|
(provide read-syntax)
|
|
|
|
|
|
|
|
|
|
|
|