From 03bd431e1d62d039bb6c5d20c58b2e13287d6afc Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Mon, 3 Jun 2013 15:21:34 -0400 Subject: [PATCH] fix bad syntax error, closes PR 13812 --- collects/syntax/parse/private/parse.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/syntax/parse/private/parse.rkt b/collects/syntax/parse/private/parse.rkt index 47855ce558..8b7c5a5674 100644 --- a/collects/syntax/parse/private/parse.rkt +++ b/collects/syntax/parse/private/parse.rkt @@ -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)