mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-31 09:20:23 +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

6
libguile/ChangeLog
View file

@ -1,3 +1,9 @@
1999-11-20 Gary Houston <ghouston@freewire.co.uk>
* unif.c (scm_list_to_uniform_array): call
scm_dimensions_to_uniform_array with a third argument of
SCM_UNDEFINED instead of SCM_EOL.
1999-11-19 Gary Houston <ghouston@freewire.co.uk> 1999-11-19 Gary Houston <ghouston@freewire.co.uk>
* the following changes allow guile to be built with the array * the following changes allow guile to be built with the array

3
libguile/unif.c
View file

@ -2103,7 +2103,8 @@ scm_list_to_uniform_array (ndim, prot, lst)
if (SCM_NIMP (row)) if (SCM_NIMP (row))
row = SCM_CAR (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)) if (SCM_NULLP (shp))
{ {