suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

syntax/parse: fixed bug in #:when parsing

Browse Source 
Please commit to release branch.

svn: r16078
This commit is contained in:
Ryan Culpepper 2009-09-19 23:07:51 +00:00
parent 282d36e363
commit fdc2eaa646
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/syntax/private/stxparse/rep.ss
View File

@ -751,7 +751,7 @@
[(cons (list '#:fail-unless fu-stx unless-condition expr) rest) [(cons (list '#:fail-unless fu-stx unless-condition expr) rest)
(cons (make clause:fail #`(not #,unless-condition) expr) (cons (make clause:fail #`(not #,unless-condition) expr)
(parse-pattern-sides rest decls))] (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 ;; Bleh: when is basically fail-unless without the msg argument
(cons (make clause:fail #`(not #,unless-condition) #'#f) (cons (make clause:fail #`(not #,unless-condition) #'#f)
(parse-pattern-sides rest decls))] (parse-pattern-sides rest decls))]