From 5e0564191cea8a84619c80644fd427b35f135c19 Mon Sep 17 00:00:00 2001 From: Suzanne Soy Date: Mon, 15 Mar 2021 22:51:04 +0000 Subject: [PATCH] fixed bug in fold-syntax on hashes --- stx/fold.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/stx/fold.rkt b/stx/fold.rkt index 8621dc7..a25b951 100644 --- 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)]))