Finally the correct fix

svn: r14039
2009-03-10 21:25:46 +00:00 · 2009-03-10 21:25:46 +00:00 · b6e340d2c9
commit b6e340d2c9
parent 64250c4931
1 changed files with 1 additions and 1 deletions
--- 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"