suzanne.soy/phc-toolkit
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases Wiki Activity

fixed bug in fold-syntax on hashes

Browse Source
This commit is contained in:
Suzanne Soy 2021-03-15 22:51:04 +00:00
parent 61921a827e
commit 5e0564191c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
stx/fold.rkt
View File

@ -28,9 +28,9 @@
[(hash? stx) [(hash? stx)
(define processed (process (hash->list stx))) (define processed (process (hash->list stx)))
(cond (cond
[(hash-equal? stx) (hash processed)] [(hash-equal? stx) (make-hash processed)]
[(hash-eqv? stx) (hasheqv processed)] [(hash-eqv? stx) (make-hasheqv processed)]
[(hash-eq? stx) (hasheq processed)])] [(hash-eq? stx) (make-hasheq processed)])]
[(prefab-struct-key stx) [(prefab-struct-key stx)
(apply make-prefab-struct (apply make-prefab-struct
(prefab-struct-key stx) (prefab-struct-key stx)
@ -87,4 +87,4 @@
(define-syntax (quasisyntax/whole-loc stx) (define-syntax (quasisyntax/whole-loc stx)
(syntax-case stx () (syntax-case stx ()
[(self loc template) [(self loc template)
#'(replace-whole-loc #`template (syntax-source #'self) loc)])) #'(replace-whole-loc #`template (syntax-source #'self) loc)]))