mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

(scm_i_print_array): It's "ndim", not "rank". D'Oh!

Browse source
This commit is contained in:
Marius Vollmer 2004-10-29 14:50:13 +00:00
parent 5e9c05a174
commit c0fc64c806
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/unif.c
View file

@ -2612,7 +2612,7 @@ scm_i_print_array (SCM array, SCM port, scm_print_state *pstate)
long i;
scm_putc ('#', port);
if (rank != 1 || dim_specs[0].lbnd != 0)
if (ndim != 1 || dim_specs[0].lbnd != 0)
scm_intprint (ndim, 10, port);
if (scm_is_uniform_vector (SCM_ARRAY_V (array)))
scm_puts (scm_i_uniform_vector_tag (SCM_ARRAY_V (array)), port);