From 84842bafb7eecb8cb10980370d772228d4350d8e Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Thu, 26 Aug 2010 12:46:47 -0400 Subject: [PATCH] Make the error for misplaced `any's more specific. --- collects/racket/contract/private/guts.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/racket/contract/private/guts.rkt b/collects/racket/contract/private/guts.rkt index c324487a6f..28b2b010fa 100644 --- a/collects/racket/contract/private/guts.rkt +++ b/collects/racket/contract/private/guts.rkt @@ -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