From fdc2eaa646ddbe5a8084e8d10b446673b2a4e58b Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Sat, 19 Sep 2009 23:07:51 +0000 Subject: [PATCH] syntax/parse: fixed bug in #:when parsing Please commit to release branch. svn: r16078 --- collects/syntax/private/stxparse/rep.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/syntax/private/stxparse/rep.ss b/collects/syntax/private/stxparse/rep.ss index d192ebf6b2..b7d821ff0a 100644 --- a/collects/syntax/private/stxparse/rep.ss +++ b/collects/syntax/private/stxparse/rep.ss @@ -751,7 +751,7 @@ [(cons (list '#:fail-unless fu-stx unless-condition expr) rest) (cons (make clause:fail #`(not #,unless-condition) expr) (parse-pattern-sides rest decls))] - [(cons (list '#:when unless-condition) rest) + [(cons (list '#:when w-stx unless-condition) rest) ;; Bleh: when is basically fail-unless without the msg argument (cons (make clause:fail #`(not #,unless-condition) #'#f) (parse-pattern-sides rest decls))]