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

Simplify quoting and unquoting in auto-hash-ref/explicit.

Browse source
This commit is contained in:
Sergiu Ivanov 2022-02-20 17:30:33 +01:00
parent f6946d94ad
commit fa015870d0
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
utils.rkt
View file

@ -51,9 +51,9 @@
(define-syntax (auto-hash-ref/explicit stx) (define-syntax (auto-hash-ref/explicit stx)
(syntax-parse stx (syntax-parse stx
[(_ (ht:id xs:id ...) body:expr) [(_ (ht:id keys:id ...) body:expr)
#`(let #,(for/list ([x (syntax->list #'(xs ...))]) #`(let #,(for/list ([key (syntax->list #'(keys ...))])
#`[#,x (hash-ref ht '#,x)]) `[,key (hash-ref ,#'ht ',key)])
body)])) body)]))
(module+ test (module+ test