From ec4c4bb29d055c51f88543633bb9a7ca83663a2d Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 12 Apr 2004 13:52:01 +0000 Subject: [PATCH] . original commit: ce3897804dc8dd6b4648a8bfa749cc00e9e8de83 --- collects/mzlib/contract.ss | 1 - 1 file changed, 1 deletion(-) diff --git a/collects/mzlib/contract.ss b/collects/mzlib/contract.ss index 1235640..d6e9a81 100644 --- a/collects/mzlib/contract.ss +++ b/collects/mzlib/contract.ss @@ -362,7 +362,6 @@ add struct contracts for immutable structs? ;; builds a begin expression for the entire contract and provide ;; the first syntax object is used for source locations (define (code-for-one-id stx id ctrct user-rename-id) - (printf "code-for-one-id ~s\n" (syntax-object->datum id)) (with-syntax ([id-rename (a:mangle-id provide-stx "provide/contract-id" id)] [contract-id (a:mangle-id provide-stx "provide/contract-contract-id" id)] [pos-module-source (a:mangle-id provide-stx "provide/contract-pos-module-source" id)]