suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Just a small change, nothing big.

Browse Source 
svn: r13885

original commit: bd4c6f40ba5c854817091bf0ddf9463415987bf1
This commit is contained in:
Stevie Strickland 2009-03-01 01:12:03 +00:00
parent 2a58f8d016
commit 5ba7ce5c73
1 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
collects/mzlib/unit.ss
View File

@ -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))