From 44116e67e90034c497bccabbcb96b901ce4321a6 Mon Sep 17 00:00:00 2001
From: Stevie Strickland <sstrickl@racket-lang.org>
Date: Fri, 12 Sep 2008 23:51:51 +0000
Subject: [PATCH] Okay, here's the old stuff put back, will fix up the unit
 tests when I get home.

svn: r11709

original commit: c484131597b684e1a17dd8aae520c8a2bd1f93e2
---
 collects/mzlib/contract.ss | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/collects/mzlib/contract.ss b/collects/mzlib/contract.ss
index 9f69097..373846b 100644
--- a/collects/mzlib/contract.ss
+++ b/collects/mzlib/contract.ss
@@ -34,10 +34,14 @@
              lazy-depth-to-look)
  
  (except-out (all-from-out scheme/private/contract)
+             old-define/contract
+             define/contract
+             with-contract
              check-between/c
              string-len/c
              check-unary-between/c)
- (rename-out [string-len/c string/len]))
+ (rename-out [string-len/c string/len]
+             [old-define/contract define/contract]))
 
 ;; from contract-guts.ss