commit 5e0564191cea8a84619c80644fd427b35f135c19 parent 61921a827ea6c191f21544c5dd584414111759c6 Author: Suzanne Soy <ligo@suzanne.soy> Date: Mon, 15 Mar 2021 22:51:04 +0000 fixed bug in fold-syntax on hashes Diffstat:
| M | stx/fold.rkt | | | 9 | ++++----- |
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/stx/fold.rkt b/stx/fold.rkt @@ -28,9 +28,9 @@ [(hash? stx) (define processed (process (hash->list stx))) (cond - [(hash-equal? stx) (hash processed)] - [(hash-eqv? stx) (hasheqv processed)] - [(hash-eq? stx) (hasheq processed)])] + [(hash-equal? stx) (make-hash processed)] + [(hash-eqv? stx) (make-hasheqv processed)] + [(hash-eq? stx) (make-hasheq processed)])] [(prefab-struct-key stx) (apply make-prefab-struct (prefab-struct-key stx) @@ -87,4 +87,4 @@ (define-syntax (quasisyntax/whole-loc stx) (syntax-case stx () [(self loc template) - #'(replace-whole-loc #`template (syntax-source #'self) loc)])) -\ No newline at end of file + #'(replace-whole-loc #`template (syntax-source #'self) loc)]))