guile/guile-core/libguile ramap.c

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/05/06 15:14:09

Modified files:
        guile-core/libguile: ramap.c 

Log message:
        (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.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/ramap.c.diff?cvsroot=OldCVS&tr1=1.67&tr2=1.68&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/ramap.c
diff -u guile/guile-core/libguile/ramap.c:1.67 
guile/guile-core/libguile/ramap.c:1.68
--- guile/guile-core/libguile/ramap.c:1.67      Sat Apr 21 14:50:08 2001
+++ guile/guile-core/libguile/ramap.c   Sun May  6 15:14:09 2001
@@ -1789,7 +1789,7 @@
   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 @@
       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);