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

fix the error check

Browse Source 
closes PR 12290
This commit is contained in:
Robby Findler 2011-10-15 13:59:26 -05:00
parent d4f7020cd2
commit 9ab6a93127
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/redex/private/reduction-semantics.rkt
View File

@ -1757,7 +1757,7 @@
(for-each (for-each
(λ (x) (λ (x)
(syntax-case x () (syntax-case x ()
[(stuff ...) (void)] [(stuff stuff2 ...) (void)]
[x (raise-syntax-error syn-error-name "expected a clause" stx #'x)])) [x (raise-syntax-error syn-error-name "expected a clause" stx #'x)]))
(syntax->list #'(x ...))) (syntax->list #'(x ...)))
(raise-syntax-error syn-error-name "error checking failed.2" stx))])) (raise-syntax-error syn-error-name "error checking failed.2" stx))]))