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

.

Browse Source 
original commit: 34ceb96166be334387a3af1cd2f5578135282ffa
This commit is contained in:
Matthew Flatt 2001-12-12 18:46:56 +00:00
parent 58b4b9c1f5
commit 1ac42343f7
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/match.ss
View File

@ -218,9 +218,9 @@
`(,(parse-quasipattern (syntax p)) ,(syntax-e (syntax ..k)))]
[(i . rest)
(identifier? (syntax i))
`(,(syntax-object->datum (syntax i)) ,@(parse-quasipattern (syntax rest)))]
(cons (syntax-object->datum (syntax i)) (parse-quasipattern (syntax rest)))]
[(qp . rest)
`(,(parse-quasipattern (syntax qp)) ,@(parse-quasipattern (syntax rest)))]
(cons (parse-quasipattern (syntax qp)) (parse-quasipattern (syntax rest)))]
[_else
(let ([s (syntax-e p)])
(cond