mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

(raeql_1): Do not call scm_uniform_vector_length on

Browse source 
arrays.  The length of array is already determined differently and
scm_uniform_vector_length does not work on arrays.
This commit is contained in:
Marius Vollmer 2001-05-06 22:14:09 +00:00
parent 19a96c8ae4
commit e466c6a2d6
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ramap.c
View file

@ -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);