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

raise a syntax error uses of keywords in case->

Browse Source
This commit is contained in:
Robby Findler 2016-07-08 15:36:44 -05:00
parent fdc3b4a685
commit 9cf9897b16
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/collects/racket/contract/private/case-arrow.rkt
View File

@ -44,7 +44,13 @@
[(-> doms ... #:rest rst rng) [(-> doms ... #:rest rst rng)
(values #'(doms ...) #'rst (parse-rng stx #'rng))] (values #'(doms ...) #'rst (parse-rng stx #'rng))]
[(-> doms ... rng) [(-> doms ... rng)
(values #'(doms ...) #f (parse-rng stx #'rng))] (begin
(for ([x (in-list (append (syntax->list #'(doms ...))
(list #'rng)))])
(when (keyword? (syntax-e x))
(raise-syntax-error 'case-> "does not accept keywords"
stx x)))
(values #'(doms ...) #f (parse-rng stx #'rng)))]
[(x y ...) [(x y ...)
(raise-syntax-error #f "expected ->" stx #'x)] (raise-syntax-error #f "expected ->" stx #'x)]
[_ [_