From 6034e5e0d5d146f95ef8b185e135f162cf1fde30 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 6 Sep 2006 14:26:19 -0400 Subject: [PATCH] fix bug with list-rest in quasi-patterns --- collects/mzlib/private/match/parse-quasi.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mzlib/private/match/parse-quasi.scm b/collects/mzlib/private/match/parse-quasi.scm index a779045a8e..2bae2443f3 100644 --- a/collects/mzlib/private/match/parse-quasi.scm +++ b/collects/mzlib/private/match/parse-quasi.scm @@ -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)