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

fix bug with list-rest in quasi-patterns

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2006-09-06 14:26:19 -04:00
parent 3a77f5a914
commit 6034e5e0d5
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/private/match/parse-quasi.scm
View File

@ -72,7 +72,7 @@
"unquote-splicing not followed by list")))]
[,@p
(if (and (stx-list? (syntax p))
(eq? (syntax-e (car (syntax->list #'p))) 'list))
(memq (syntax-e (car (syntax->list #'p))) '(list list-rest)))
(cdr (syntax->list (syntax p)))
(begin ; (write (syntax-e (syntax p)))
(q-error (syntax ,@p)