From 3cd68e7ea3a87d482ba1a525d8e51261f292bf6f Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Fri, 4 Jan 2008 21:19:30 -0500
Subject: [PATCH] Fixed bug 179978: (eq? (vector) (vector)) should evaluate to
 #t

---
 scheme/ikarus.compiler.ss | 14 ++++++++++----
 scheme/last-revision      |  2 +-
 2 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/scheme/ikarus.compiler.ss b/scheme/ikarus.compiler.ss
index 52da73f..6b5496e 100644
--- a/scheme/ikarus.compiler.ss
+++ b/scheme/ikarus.compiler.ss
@@ -913,17 +913,23 @@
                       [(eq? ctxt 'e) a0]
                       [else (mk-seq a0 (make-constant #t))])))))
          (giveup))] 
-    [(list)
+    [(list vector)
      (case ctxt
-       [(v) (if (null? rand*) (make-constant '()) (giveup))]
+       [(v) 
+        (if (null? rand*) 
+            (make-constant 
+              (case op
+                [(list)    '()]
+                [else     '#()]))
+            (giveup))]
        [else
         (if (null? rand*)
             (make-constant #t)
             (let f ([a (car rand*)] [d (cdr rand*)])
               (cond
-                [(null? d) (make-seq a (make-constant #t))]
+                [(null? d) (mk-seq a (make-constant #t))]
                 [else
-                 (f (make-seq a (car d)) (cdr d))])))])]
+                 (f (mk-seq a (car d)) (cdr d))])))])]
     [(cons*)
      (case ctxt
        [(e) 
diff --git a/scheme/last-revision b/scheme/last-revision
index d378cb0..a38c571 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1327
+1328