fixed compile error for (vector-set! (vector 0) 0.0 'foo).

This commit is contained in:
Abdulaziz Ghuloum 2009-01-03 19:48:23 -05:00
parent 5946459630
commit f5f6af8bd7
2 changed files with 7 additions and 6 deletions

View File

@ -1 +1 @@
1735
1736

View File

@ -479,7 +479,7 @@
[(constant i)
(if (and (fx? i) (>= i 0))
(check-fx idx)
(check-? idx))]
(interrupt))]
[(known idx idx-t)
(case (T:fixnum? idx-t)
[(yes) (check-fx idx)]
@ -591,10 +591,11 @@
[(E x i v)
(struct-case i
[(constant i)
(unless (fx? i) (interrupt))
(if (not (fx? i))
(interrupt)
(mem-assign v (T x)
(+ (* i wordsize)
(- disp-vector-data vector-tag)))]
(- disp-vector-data vector-tag))))]
[(known i t)
(cogen-effect-$vector-set! x i v)]
[else