diff --git a/expander.rkt b/expander.rkt index df5ea50..a1ae13b 100644 --- a/expander.rkt +++ b/expander.rkt @@ -1,4 +1,7 @@ #lang br/quicklang +(namespace-require 'racket/base) ; must be added for the currect namespace + + (define paperwidth #f) (define paperheight #f) (define (set x y) (set! x y)) @@ -27,9 +30,7 @@ [(u-sexp REQ OPT ...) #'(let ([head REQ] (namespace (current-namespace))) - (begin - (println (namespace-mapped-symbols namespace)) - ((namespace-variable-value head namespace) OPT ...)))] + (namespace-variable-value head namespace) OPT ...)] ) (define-macro (u-module-begin (u-program LINE ...))