yoxem/uahgi2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix namespace catching error
Some checks are pending
CI / Build on Racket 'stable' (BC) (push) Waiting to run
Details
CI / Build on Racket 'stable' (CS) (push) Waiting to run
Details
CI / Build on Racket 'current' (BC) (push) Waiting to run
Details
CI / Build on Racket 'current' (CS) (push) Waiting to run
Details

Browse source
This commit is contained in:
Tan, Kian-ting 2025-09-29 22:12:15 +08:00
parent 1a85b617c4
commit 754c05fa50
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
expander.rkt
View file

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