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

changed static syntax class back to perform post-checks

Browse Source
This commit is contained in:
Ryan Culpepper 2010-08-31 16:21:13 -06:00
parent 4f41e3f79d
commit 6c42fe2766
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/syntax/parse/private/lib.rkt
View File

@ -70,12 +70,12 @@
#:attributes (value) #:attributes (value)
#:description name #:description name
#:commit #:commit
(pattern (~and x:id (pattern x:id
(~fail #:unless (syntax-transforming?) #:fail-unless (syntax-transforming?)
"not within the extent of a macro transformer") "not within the dynamic extent of a macro transformation"
(~bind [value (syntax-local-value #'x (lambda () notfound))]) #:attr value (syntax-local-value #'x (lambda () notfound))
(~fail #:when (eq? (attribute value) notfound)) #:fail-when (eq? (attribute value) notfound) #f
(~fail #:unless (pred (attribute value)))))) #:fail-unless (pred (attribute value)) #f))
#| #|
(define-syntax-class expr (define-syntax-class expr