fix clause[*].expand

racket · Oct 5, 2021 · f7ef99b · f7ef99b
1 parent f98a5d9
commit f7ef99b
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/typed-racket-lib/typed-racket/base-env/prims.rkt b/typed-racket-lib/typed-racket/base-env/prims.rkt
@@ -603,7 +603,7 @@ the typed racket language.
 (begin-for-syntax
   (define-values (define-for/hash:-variant define-for*/hash:-variant)
     (let ()
-      (define ((make for/folder:) hash-maker)
+      (define ((make for*? for/folder:) hash-maker)
         (lambda (stx)
           (syntax-parse stx
             [(_ a1:optional-standalone-annotation*
@@ -614,11 +614,13 @@ the typed racket language.
              (quasisyntax/loc stx
                (#,for/folder: : #,a.ty
                 ((return-hash : #,a.ty (ann (#,hash-maker null) #,a.ty)))
-                (clause.expand ... ...)
+                (if for*?
+                    (clause.expand* ... ...)
+                    (clause.expand  ... ...))
                 (let-values (((key val) (let () body ...)))
                   (hash-set return-hash key val))))])))
 
-      (values (make #'for/fold:) (make #'for*/fold:)))))
+      (values (make #f #'for/fold:) (make #t #'for*/fold:)))))
 
 (define-syntax for/hash:    (define-for/hash:-variant #'make-immutable-hash))
 (define-syntax for/hasheq:  (define-for/hash:-variant #'make-immutable-hasheq))