From 5ba7ce5c730413c7656717946bf8d914b592ad8c 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 original commit: bd4c6f40ba5c854817091bf0ddf9463415987bf1 --- 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 fb4bc86..186e534 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))