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

improved error message a little more, thanks to Jon Rafkind

Browse Source 
svn: r6073
This commit is contained in:
Robby Findler 2007-04-28 21:50:05 +00:00
parent 383c4178ed
commit 2cb314de1b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/private/contract-arrow.ss
View File

@ -60,7 +60,7 @@
procedure?))))])) procedure?))))]))
(define-syntax (any stx) (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. ;; FIXME: need to pass in the name of the contract combinator.
(define (build--> name doms doms-rest rngs rng-any? func) (define (build--> name doms doms-rest rngs rng-any? func)