From 37bd154af574e384bd7d0c417534fa1e4e5a48c0 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Tue, 10 Mar 2009 21:12:50 +0000
Subject: [PATCH] revert broken change

svn: r14037
---
 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 01b945e53b..a8e1f878fd 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 (list? pats)
 		   (raise-syntax-error 
 		    'match*
 		    "expected a sequence of patterns"