From 6f269cea13018e9a7b9adbb5c5d43210bde0679c Mon Sep 17 00:00:00 2001 From: NoahStoryM Date: Wed, 6 Oct 2021 01:51:32 +0800 Subject: [PATCH] Fix bug. --- typed-racket-lib/typed-racket/base-env/prims.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/typed-racket-lib/typed-racket/base-env/prims.rkt b/typed-racket-lib/typed-racket/base-env/prims.rkt index c9e9c3585..9052e48a1 100644 --- 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))))])))