From 7ec66999ed2eff221b62e1c4c94f5b9a5e966cd8 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 25 Jan 2006 04:44:49 +0000
Subject: [PATCH] improved expansion of -> contract combinator to generate less
 stuff and got a very slight performance improvement. also split up contract
 implementation into multiple files

svn: r1956

original commit: edc4b96987ebfa1016801536f200fe3d7056ee4a
---
 collects/mzlib/contract.ss | 20 ++++++++++++++------
 1 file changed, 14 insertions(+), 6 deletions(-)

diff --git a/collects/mzlib/contract.ss b/collects/mzlib/contract.ss
index 7ade252..6beb53c 100644
--- a/collects/mzlib/contract.ss
+++ b/collects/mzlib/contract.ss
@@ -1,7 +1,15 @@
 (module contract mzscheme
-  (require "private/contract.ss")
-  (provide (all-from-except "private/contract.ss"
-                            make-contract
-                            contract-proc
-                            raise-contract-error
-                            build-compound-type-name)))
+  (require "private/contract.ss"
+           "private/contract-arrow.ss"
+           "private/contract-util.ss")
+  
+  
+  (provide 
+   (all-from "private/contract-arrow.ss")
+   (all-from-except "private/contract-util.ss"
+                    raise-contract-error
+                    contract-proc
+                    make-contract
+                    contract-proc
+                    build-compound-type-name)
+   (all-from-except "private/contract.ss")))