Okay, here's the old stuff put back, will fix up the unit tests when I get

home. svn: r11709 original commit: c484131597b684e1a17dd8aae520c8a2bd1f93e2
2008-09-12 23:51:51 +00:00 · 2008-09-12 23:51:51 +00:00 · 44116e67e9
commit 44116e67e9
parent f060e3a47c
1 changed files with 5 additions and 1 deletions
--- 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