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

Finally the correct fix

Browse Source 
svn: r14039
This commit is contained in:
Sam Tobin-Hochstadt 2009-03-10 21:25:46 +00:00
parent 64250c4931
commit b6e340d2c9
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/scheme/match/gen-match.ss
View File

@ -29,7 +29,7 @@
(for/list ([clause (syntax->list clauses)] (for/list ([clause (syntax->list clauses)]
[pats (syntax->list #'(pats ...))] [pats (syntax->list #'(pats ...))]
[rhs (syntax->list #'(rhs ...))]) [rhs (syntax->list #'(rhs ...))])
#;(unless (list? pats) (unless (syntax->list pats)
(raise-syntax-error (raise-syntax-error
'match* 'match*
"expected a sequence of patterns" "expected a sequence of patterns"