From c0fc64c80697891d65ecf65b01d9ba4c21f1df8c Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Fri, 29 Oct 2004 14:50:13 +0000 Subject: [PATCH] (scm_i_print_array): It's "ndim", not "rank". D'Oh! --- libguile/unif.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libguile/unif.c b/libguile/unif.c index 08f04aaa7..4ef6c73ee 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -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);