From f5f6af8bd7acdf1023fe8881738d30ba22164f65 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Sat, 3 Jan 2009 19:48:23 -0500
Subject: [PATCH] fixed compile error for (vector-set! (vector 0) 0.0 'foo).

---
 scheme/last-revision               |  2 +-
 scheme/pass-specify-rep-primops.ss | 11 ++++++-----
 2 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/scheme/last-revision b/scheme/last-revision
index b0539e9..8d937ef 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1735
+1736
diff --git a/scheme/pass-specify-rep-primops.ss b/scheme/pass-specify-rep-primops.ss
index 266bb82..f498098 100644
--- a/scheme/pass-specify-rep-primops.ss
+++ b/scheme/pass-specify-rep-primops.ss
@@ -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))
-      (mem-assign v (T x) 
-         (+ (* i wordsize)
-            (- disp-vector-data vector-tag)))]
+      (if (not (fx? i))
+          (interrupt)
+          (mem-assign v (T x) 
+             (+ (* i wordsize)
+                (- disp-vector-data vector-tag))))]
      [(known i t)
       (cogen-effect-$vector-set! x i v)]
      [else