Fix bug.

racket · Oct 5, 2021 · 6f269ce · 6f269ce
1 parent f7ef99b
commit 6f269ce
Showing 1 changed file with 3 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
@@ -614,9 +614,9 @@ the typed racket language.
              (quasisyntax/loc stx
                (#,for/folder: : #,a.ty
                 ((return-hash : #,a.ty (ann (#,hash-maker null) #,a.ty)))
-                (if for*?
-                    (clause.expand* ... ...)
-                    (clause.expand  ... ...))
+                #,(if for*?
+                      #'(clause.expand* ... ...)
+                      #'(clause.expand  ... ...))
                 (let-values (((key val) (let () body ...)))
                   (hash-set return-hash key val))))])))