From bbb4f1c3070d2c03a75b41bdd582678822109fdc Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 28 Apr 2007 20:21:04 +0000 Subject: [PATCH] tweaked wording of any error message svn: r6071 --- collects/mzlib/private/contract-arrow.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mzlib/private/contract-arrow.ss b/collects/mzlib/private/contract-arrow.ss index 7cba82ab28..c22f000708 100644 --- a/collects/mzlib/private/contract-arrow.ss +++ b/collects/mzlib/private/contract-arrow.ss @@ -60,7 +60,7 @@ procedure?))))])) (define-syntax (any stx) - (raise-syntax-error 'any "Use any out 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)