From 2fd1b8f3d5b3883de8d2d48898325b26f7b12a57 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 29 Jul 2002 05:50:17 +0000
Subject: [PATCH] ...

original commit: cfa23802335d6008cfecf57406d9e1cb1ce9524f
---
 collects/mzlib/contracts.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/contracts.ss b/collects/mzlib/contracts.ss
index 0be524b..df91a41 100644
--- a/collects/mzlib/contracts.ss
+++ b/collects/mzlib/contracts.ss
@@ -50,7 +50,7 @@
             ;; 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)) 
+	    (if #f (begin (void) id ...))
 
 	    (define contract-id ctrct) ...
             (define-syntax id-rename