From bd4c6f40ba5c854817091bf0ddf9463415987bf1 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Sun, 1 Mar 2009 01:12:03 +0000 Subject: [PATCH] Just a small change, nothing big. svn: r13885 --- collects/mzlib/unit.ss | 26 +++++++++++++++----------- 1 file changed, 15 insertions(+), 11 deletions(-) diff --git a/collects/mzlib/unit.ss b/collects/mzlib/unit.ss index fb4bc8673d..186e534476 100644 --- a/collects/mzlib/unit.ss +++ b/collects/mzlib/unit.ss @@ -790,18 +790,22 @@ #`(letrec-syntax #,rename-bindings #,ctc) 'inferred-name var) ctc)]) - (if (or target-ctc ctc) + (if target-ctc #`(λ () - (let ([old-v #,(if ctc - #`(let ([old-v/c (#,vref)]) - (contract ctc-stx (car old-v/c) - (cdr old-v/c) (current-contract-region) - #,(id->contract-src-info var))) - #`(#,vref))]) - #,(if target-ctc - #'(cons old-v (current-contract-region)) - #'old-v))) - vref)))) + (cons #,(if ctc + #`(let ([old-v/c (#,vref)]) + (contract ctc-stx (car old-v/c) + (cdr old-v/c) (current-contract-region) + #,(id->contract-src-info var))) + #`(#,vref)) + (current-contract-region))) + (if ctc + #`(λ () + (let ([old-v/c (#,vref)]) + (contract ctc-stx (car old-v/c) + (cdr old-v/c) (current-contract-region) + #,(id->contract-src-info var)))) + vref))))) (car target-sig) (cadddr target-sig))) target-import-sigs))