conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/last-revision
View File

@ -1 +1 @@
1735 1736

11
scheme/pass-specify-rep-primops.ss
View File

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