diff options
| author | Gary Houston <ghouston@arglist.com> | 1999-11-20 19:21:37 +0000 |
|---|---|---|
| committer | Gary Houston <ghouston@arglist.com> | 1999-11-20 19:21:37 +0000 |
| commit | d12feca34dd502e2123258cf9d4432cf3176bc94 (patch) | |
| tree | f5c3367ab1faa07bd2d6a4f752dbcbefbdecef22 /libguile/unif.c | |
| parent | b4ca4db3e093f3e22e05f73d992f0535172123fe (diff) | |
| download | guile-d12feca34dd502e2123258cf9d4432cf3176bc94.tar.gz | |
* unif.c (scm_list_to_uniform_array): call
scm_dimensions_to_uniform_array with a third argument of
SCM_UNDEFINED instead of SCM_EOL.
Diffstat (limited to 'libguile/unif.c')
| -rw-r--r-- | libguile/unif.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/unif.c b/libguile/unif.c index d311c54b7..98818e518 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -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)) { |