From 7c533310cc9c3de580076dfa1574345cecea12bb Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 30 Apr 2005 13:10:14 +0000
Subject: [PATCH] .

original commit: 47ea7defe855135c2ed45d5c8a1816785bdf6446
---
 collects/mzlib/contract.ss | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/collects/mzlib/contract.ss b/collects/mzlib/contract.ss
index 876377c..db68113 100644
--- a/collects/mzlib/contract.ss
+++ b/collects/mzlib/contract.ss
@@ -10,6 +10,7 @@ add struct contracts for immutable structs?
 (module contract mzscheme
   
   (provide (rename -contract contract)
+           any
            ->
            ->d
            ->*
@@ -745,6 +746,9 @@ add struct contracts for immutable structs?
 ;                                                                                   
 
   
+  (define-syntax (any stx)
+    (raise-syntax-error 'any "Use any out of an arrow contract" stx))
+
   (define-syntax-set (-> ->* ->d ->d* ->r ->pp ->pp-rest case-> object-contract opt-> opt->*)
     
     (define (->/proc stx) (make-/proc #f ->/h stx))