From 9aa0fb67394a2eb03fe864252845ca3cf38ea7fd Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 23 Jul 2002 16:30:45 +0000
Subject: [PATCH] ..

original commit: 0855c54be694602d29db2dc974cba7b9c5c88342
---
 collects/mzlib/contracts.ss | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/collects/mzlib/contracts.ss b/collects/mzlib/contracts.ss
index 499aea0..8039df7 100644
--- a/collects/mzlib/contracts.ss
+++ b/collects/mzlib/contracts.ss
@@ -46,6 +46,12 @@
           (begin
             (provide (rename id-rename id) ...)
             (require (lib "contract-helpers.scm" "mzlib" "private"))
+
+            ;; this is here to check for unbound ids.
+            ;; put outer `void' just in case we start printing out module
+            ;; body values (say in the module language or something)
+            ;(begin (begin (void) id ...) (void)) 
+
 	    (define contract-id ctrct) ...
             (define-syntax id-rename
               (make-set!-transformer