From 7b866a7cf369865b97909caf263ef5bf78551a99 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Wed, 6 Jan 2010 22:20:25 +0000 Subject: [PATCH] syntax/parse: fixed error message (PR 10683) svn: r17517 --- collects/syntax/private/stxparse/parse.ss | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/collects/syntax/private/stxparse/parse.ss b/collects/syntax/private/stxparse/parse.ss index e257698028..fa1ac61e5b 100644 --- a/collects/syntax/private/stxparse/parse.ss +++ b/collects/syntax/private/stxparse/parse.ss @@ -154,6 +154,11 @@ #:allow-declare? #t #:decls decls0 #:context #'ctx)]) + (unless (and (stx-list? rest) (stx-pair? rest)) + (raise-syntax-error #f + "expected non-empty clause body" + #'ctx + clause)) (with-syntax ([rest rest] [pattern (parse-whole-pattern #'p decls2 #:context #'ctx)] @@ -164,7 +169,7 @@ (convert-sides x #,sides (clause-success () (let () . rest)))))))])) (unless (and (stx-list? clauses-stx) (stx-pair? clauses-stx)) - (raise-syntax-error #f "expected non-empty sequence of clauses" stx)) + (raise-syntax-error #f "expected non-empty sequence of clauses" #'ctx)) (with-syntax ([(def ...) defs] [(alternative ...) (map for-clause (stx->list clauses-stx))])