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

syntax/parse: fixed error message (PR 10683)

Browse Source 
svn: r17517
This commit is contained in:
Ryan Culpepper 2010-01-06 22:20:25 +00:00
parent 582ca03d18
commit 7b866a7cf3
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/syntax/private/stxparse/parse.ss
View File

@ -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))])