improved error message a little more, thanks to Jon Rafkind

svn: r6073
This commit is contained in:
Robby Findler 2007-04-28 21:50:05 +00:00
parent 383c4178ed
commit 2cb314de1b

View File

@ -60,7 +60,7 @@
procedure?))))]))
(define-syntax (any stx)
(raise-syntax-error 'any "use of any outside of an arrow contract" stx))
(raise-syntax-error 'any "use of 'any' outside of an arrow contract" stx))
;; FIXME: need to pass in the name of the contract combinator.
(define (build--> name doms doms-rest rngs rng-any? func)