From 754c05fa500dfcc0f73786a19f3471bb19df3f2c Mon Sep 17 00:00:00 2001 From: Tan Kian-ting Date: Mon, 29 Sep 2025 22:12:15 +0800 Subject: [PATCH] fix namespace catching error --- expander.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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 ...))