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

Lauri's patch to syntax pattern match on vectors

Browse Source 
svn: r2418
This commit is contained in:
Matthew Flatt 2006-03-12 16:16:07 +00:00
parent dbed916752
commit 7b968839e8
3 changed files with 1458 additions and 1456 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2904
src/mzscheme/src/cstartup.inc
View File

File diff suppressed because it is too large Load Diff

5
src/mzscheme/src/startup.inc
View File

@ -913,8 +913,9 @@
"(if(stx-vector? e ,len)"
" ,body"
" #f))"
" did-var?)"
"(let-values(((match-elem elem-did-var? <false>>) "
" did-var?"
" #f)"
"(let-values(((match-elem elem-did-var? <false>) "
"(let((e(vector-ref(syntax-e p)(sub1 pos))))"
"(m&e e e use-ellipses?(not did-var?) #f))))"
"(loop(sub1 pos)"

5
src/mzscheme/src/startup.ss
View File

@ -1098,8 +1098,9 @@
(if (stx-vector? e ,len)
,body
#f))
did-var?)
(let-values ([(match-elem elem-did-var? <false>>)
did-var?
#f)
(let-values ([(match-elem elem-did-var? <false>)
(let ([e (vector-ref (syntax-e p) (sub1 pos))])
(m&e e e use-ellipses? (not did-var?) #f))])
(loop (sub1 pos)