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

syntax/parse: allow pattern expanders that don't start with tilde

Browse Source
This commit is contained in:
Alex Knauth 2015-09-21 20:46:29 -04:00 committed by Ryan Culpepper
parent d47b96970c
commit 4d703fa2e2
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/syntax/parse/private/rep.rkt
View File

@ -469,7 +469,6 @@
[id
(and (identifier? #'id)
(not-shadowed? #'id)
(not (safe-name? #'id))
(pattern-expander? (syntax-local-value #'id (λ () #f))))
(let* ([proc (pattern-expander-proc (syntax-local-value #'id))]
[introducer (make-syntax-introducer)]
@ -482,7 +481,6 @@
[(id . rst)
(and (identifier? #'id)
(not-shadowed? #'id)
(not (safe-name? #'id))
(pattern-expander? (syntax-local-value #'id (λ () #f))))
(let* ([proc (pattern-expander-proc (syntax-local-value #'id))]
[introducer (make-syntax-introducer)]