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