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

small error message tweak

Browse Source
This commit is contained in:
Robby Findler 2016-11-01 11:58:44 -05:00
parent 82204d1444
commit 2f53b436f9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/racket/contract/private/arrow-val-first.rkt
View File

@ -808,7 +808,7 @@
(values #f #f leftover)])]) (values #f #f leftover)])])
(syntax-case leftover () (syntax-case leftover ()
[() (values raw-optional-doms rst pre pre/desc rng post post/desc)] [() (values raw-optional-doms rst pre pre/desc rng post post/desc)]
[x (raise-syntax-error #f "expected the end of the contract" stx #'x)]))) [(x . y) (raise-syntax-error #f "expected the contract to end, but found an extra sub-piece" stx #'x)])))
(define-for-syntax (->*-valid-app-shapes stx) (define-for-syntax (->*-valid-app-shapes stx)
(define this->* (gensym 'this->*)) (define this->* (gensym 'this->*))