scolobb/dds
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Fix the syntactic context.

Browse source 
https://racket.discourse.group/t/wrap-a-macro-injecting-bindings-in-another-macro/1406/2
This commit is contained in:
Sergiu Ivanov 2022-10-29 23:13:44 +02:00
parent fabecbe0f9
commit 6dce7583ab
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
utils.rkt
View file

@ -126,7 +126,7 @@
(define colons (collect-colons (syntax->datum stx))) (define colons (collect-colons (syntax->datum stx)))
(define bindings (for/list ([key colons]) (define bindings (for/list ([key colons])
`[,key (hash-ref ,#'ht ',(strip-colon key))])) `[,key (hash-ref ,#'ht ',(strip-colon key))]))
(with-syntax ([bindings-stx (datum->syntax stx bindings)]) (with-syntax ([bindings-stx (datum->syntax #'ht bindings)])
#'(let bindings-stx body))])) #'(let bindings-stx body))]))
(module+ test (module+ test