From 94220f9c984e1ef126670387d3f86ad354dcc364 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 12 Apr 2004 13:50:59 +0000 Subject: [PATCH] . original commit: ec498ba2bfd98952c1a0e7501c4b972fd4504054 --- collects/mzlib/contract.ss | 1 + 1 file changed, 1 insertion(+) diff --git a/collects/mzlib/contract.ss b/collects/mzlib/contract.ss index d6e9a81..1235640 100644 --- a/collects/mzlib/contract.ss +++ b/collects/mzlib/contract.ss @@ -362,6 +362,7 @@ 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)]