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

Make the error for misplaced `any's more specific.

Browse Source
This commit is contained in:
Stevie Strickland 2010-08-26 12:46:47 -04:00
parent 7ffbe6b1f8
commit 84842bafb7
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/racket/contract/private/guts.rkt
View File

@ -64,7 +64,7 @@
(values prop pred (λ (v) (if (pred v) ((get v) v) #f)))))
(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 the range of an arrow contract" stx))
(define (contract-first-order c)
(contract-struct-first-order