From b4bd9f99b37f3c1618c09292347555cc8e8c63ad Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Thu, 15 Jan 2009 05:37:23 +0000 Subject: [PATCH] Missed a case. Oops. svn: r13142 original commit: 9df50b125a7aa278e087c17450794861735429e5 --- collects/mzlib/unit.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/mzlib/unit.ss b/collects/mzlib/unit.ss index ba185f0..c2e0fa1 100644 --- a/collects/mzlib/unit.ss +++ b/collects/mzlib/unit.ss @@ -1216,14 +1216,14 @@ (map (lambda (os ov) (map - (lambda (i iv c) + (lambda (i v c) (if c #`(contract #,c (unbox (vector-ref #,ov #,i)) 'cant-happen (current-unit-blame-stx) - #,(id->contract-src-info iv)) + #,(id->contract-src-info v)) #`(unbox (vector-ref #,ov #,i)))) (iota (length (car os))) - (map cdr (car os)) + (map car (car os)) (cadddr os))) out-sigs out-vec)))