mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

* print.c (scm_iprin1): Limit number of vector elements printed

Browse source 
according to pstate->length.
This commit is contained in:
Mikael Djurfeldt 1997-03-11 15:02:29 +00:00
parent 14de3b4206
commit 9fbaf27ccb
1 changed files with 23 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

35
libguile/print.c
View file

@ -494,18 +494,29 @@ taloop:
ENTER_NESTED_DATA (pstate, exp, circref); ENTER_NESTED_DATA (pstate, exp, circref);
scm_gen_puts (scm_regular_string, "#(", port); scm_gen_puts (scm_regular_string, "#(", port);
common_vector_printer: common_vector_printer:
for (i = 0; i + 1 < SCM_LENGTH (exp); ++i) {
{ int last = SCM_LENGTH (exp) - 1;
/* CHECK_INTS; */ int cutp = 0;
scm_iprin1 (SCM_VELTS (exp)[i], port, pstate); if (pstate->fancyp && SCM_LENGTH (exp) > pstate->length)
scm_gen_putc (' ', port); {
} last = pstate->length - 1;
if (i < SCM_LENGTH (exp)) cutp = 1;
{ }
/* CHECK_INTS; */ for (i = 0; i < last; ++i)
scm_iprin1 (SCM_VELTS (exp)[i], port, pstate); {
} /* CHECK_INTS; */
scm_gen_putc (')', port); scm_iprin1 (SCM_VELTS (exp)[i], port, pstate);
scm_gen_putc (' ', port);
}
if (i == last)
{
/* CHECK_INTS; */
scm_iprin1 (SCM_VELTS (exp)[i], port, pstate);
}
if (cutp)
scm_gen_puts (scm_regular_string, " ...", port);
scm_gen_putc (')', port);
}
EXIT_NESTED_DATA (pstate); EXIT_NESTED_DATA (pstate);
break; break;
case scm_tc7_bvect: case scm_tc7_bvect: