From e466c6a2d66a1c1c589da449b2e8f3e07a0ea58f Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Sun, 6 May 2001 22:14:09 +0000
Subject: [PATCH] (raeql_1): Do not call scm_uniform_vector_length on arrays. 
 The length of array is already determined differently and
 scm_uniform_vector_length does not work on arrays.

---
 libguile/ramap.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/libguile/ramap.c b/libguile/ramap.c
index 377debc4b..c594828ff 100644
--- a/libguile/ramap.c
+++ b/libguile/ramap.c
@@ -1789,7 +1789,7 @@ raeql_1 (SCM ra0,SCM as_equal,SCM ra1)
   SCM e0 = SCM_UNDEFINED, e1 = SCM_UNDEFINED;
   scm_sizet i0 = 0, i1 = 0;
   long inc0 = 1, inc1 = 1;
-  scm_sizet n = SCM_INUM (scm_uniform_vector_length (ra0));
+  scm_sizet n;
   ra1 = SCM_CAR (ra1);
   if (SCM_ARRAYP(ra0))
     {
@@ -1798,6 +1798,8 @@ raeql_1 (SCM ra0,SCM as_equal,SCM ra1)
       inc0 = SCM_ARRAY_DIMS (ra0)->inc;
       ra0 = SCM_ARRAY_V (ra0);
     }
+  else
+    n = SCM_INUM (scm_uniform_vector_length (ra0));
   if (SCM_ARRAYP (ra1))
     {
       i1 = SCM_ARRAY_BASE (ra1);