mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

* unif.c (scm_list_to_uniform_array): call

Browse source 
scm_dimensions_to_uniform_array with a third argument of
	SCM_UNDEFINED instead of SCM_EOL.
This commit is contained in:
Gary Houston 1999-11-20 19:21:37 +00:00
parent b4ca4db3e0
commit d12feca34d
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/unif.c
View file

@ -2103,7 +2103,8 @@ scm_list_to_uniform_array (ndim, prot, lst)
if (SCM_NIMP (row))
row = SCM_CAR (row);
}
ra = scm_dimensions_to_uniform_array (scm_reverse (shp), prot, SCM_EOL);
ra = scm_dimensions_to_uniform_array (scm_reverse (shp), prot,
SCM_UNDEFINED);
if (SCM_NULLP (shp))
{