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) #`(letrec-syntax #,rename-bindings #,ctc)
'inferred-name var) 'inferred-name var)
ctc)]) ctc)])
(if (or target-ctc ctc) (if target-ctc
#`(λ () #`(λ ()
(let ([old-v #,(if ctc (cons #,(if ctc
#`(let ([old-v/c (#,vref)]) #`(let ([old-v/c (#,vref)])
(contract ctc-stx (car old-v/c) (contract ctc-stx (car old-v/c)
(cdr old-v/c) (current-contract-region) (cdr old-v/c) (current-contract-region)
#,(id->contract-src-info var))) #,(id->contract-src-info var)))
#`(#,vref))]) #`(#,vref))
#,(if target-ctc (current-contract-region)))
#'(cons old-v (current-contract-region)) (if ctc
#'old-v))) #`(λ ()
vref)))) (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) (car target-sig)
(cadddr target-sig))) (cadddr target-sig)))
target-import-sigs)) target-import-sigs))