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

workaround limitation in syntax system related to nested marks

Browse Source 
svn: r8969
This commit is contained in:
Matthew Flatt 2008-03-14 00:37:19 +00:00
parent 421706a042
commit a8ae46ba34
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/private/match/simplify-patterns.ss
View File

@ -66,9 +66,9 @@
"This expander only works with the match.ss library."))
(let* ([introducer (make-syntax-introducer)]
[certifier (match-expander-certifier expander)]
[mstx (introducer stx)]
[mstx (introducer (syntax-local-introduce stx))]
[mresult (transformer mstx)]
[result (introducer mresult)]
[result (syntax-local-introduce (introducer mresult))]
[cert* (lambda (id) (certifier (cert id) #f introducer))])
(observe-step stx mstx mresult result)
(simplify result cert*)))]