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

.

Browse Source 
original commit: 6e953c8a4dc3ec6c6e619eb960a524e2893a39df
This commit is contained in:
Matthew Flatt 2001-12-12 18:42:23 +00:00
parent 75c302c601
commit 58b4b9c1f5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/match.ss
View File

@ -190,7 +190,7 @@
`(,(parse-pattern (syntax p)) ,(syntax-e (syntax ..k)))]
[(p . rest)
(identifier? (syntax i))
`(,(parse-pattern (syntax p)) ,@(parse-pattern (syntax rest)))]
(cons (parse-pattern (syntax p)) (parse-pattern (syntax rest)))]
[i (identifier? (syntax i)) (syntax i)]
[_else
(let ([s (syntax-e p)])