From b6e340d2c914b8ded0c85bbe345cc42597cfd570 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Tue, 10 Mar 2009 21:25:46 +0000 Subject: [PATCH] Finally the correct fix svn: r14039 --- collects/scheme/match/gen-match.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/scheme/match/gen-match.ss b/collects/scheme/match/gen-match.ss index a8e1f878fd..d511f208e0 100644 --- a/collects/scheme/match/gen-match.ss +++ b/collects/scheme/match/gen-match.ss @@ -29,7 +29,7 @@ (for/list ([clause (syntax->list clauses)] [pats (syntax->list #'(pats ...))] [rhs (syntax->list #'(rhs ...))]) - #;(unless (list? pats) + (unless (syntax->list pats) (raise-syntax-error 'match* "expected a sequence of patterns"