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

Missed a case. Oops.

Browse Source 
svn: r13142

original commit: 9df50b125a7aa278e087c17450794861735429e5
This commit is contained in:
Stevie Strickland 2009-01-15 05:37:23 +00:00
parent 650f7a3219
commit b4bd9f99b3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mzlib/unit.ss
View File

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