From 16d877d45ebed9865e26338b5f16648b64e4ce83 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 14 Jun 2012 15:10:13 +0800 Subject: [PATCH] improve `for' body syntax-error reporting Closes PR 12850 --- collects/racket/private/for.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/racket/private/for.rkt b/collects/racket/private/for.rkt index 96f1b9a031..c2272cf039 100644 --- a/collects/racket/private/for.rkt +++ b/collects/racket/private/for.rkt @@ -1320,7 +1320,7 @@ (quasisyntax/loc stx #,(wrap (quasisyntax/loc stx (derived-id #,stx fold-bind (bind ...) - #,(combine #'(let () expr1 expr ...)))))))] + #,(combine (syntax/loc stx (let () expr1 expr ...))))))))] ;; Let `derived-id' complain about the missing bindings and body expression: [(_ . rest) #`(derived-id #,stx fold-bind . rest)])))