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

fix bad syntax error, closes PR 13812

Browse Source
This commit is contained in:
Ryan Culpepper 2013-06-03 15:21:34 -04:00
parent aff7153494
commit 03bd431e1d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/syntax/parse/private/parse.rkt
View File

@ -392,7 +392,8 @@ Conventions:
#'ctx clause)]))
(else
(raise-syntax-error #f "internal error: unknown body mode" #'ctx #'body-mode)))])
(values pattern body-expr defs2)))]))
(values pattern body-expr defs2)))]
[_ (raise-syntax-error #f "expected clause" #'ctx clause)]))
(unless (stx-list? clauses-stx)
(raise-syntax-error #f "expected sequence of clauses" #'ctx))
(define-values (patterns body-exprs defs2s)