.

original commit: 47ea7defe855135c2ed45d5c8a1816785bdf6446
2005-04-30 13:10:14 +00:00 · 2005-04-30 13:10:14 +00:00 · 7c533310cc
commit 7c533310cc
parent 3d3e785916
1 changed files with 4 additions and 0 deletions
--- 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))