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)
#:description name
#:commit
(pattern (~and x:id
(~fail #:unless (syntax-transforming?)
"not within the extent of a macro transformer")
(~bind [value (syntax-local-value #'x (lambda () notfound))])
(~fail #:when (eq? (attribute value) notfound))
(~fail #:unless (pred (attribute value))))))
(pattern x:id
#:fail-unless (syntax-transforming?)
"not within the dynamic extent of a macro transformation"
#:attr value (syntax-local-value #'x (lambda () notfound))
#:fail-when (eq? (attribute value) notfound) #f
#:fail-unless (pred (attribute value)) #f))
#|
(define-syntax-class expr