mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

print: avoid triggering deprecation warnings when printing weak vectors.

Browse source 
* libguile/print.c (iprin1): Use 'scm_c_weak_vector_ref' to access
  elements of weak vectors.
This commit is contained in:
Mark H Weaver 2014-04-24 17:55:47 -04:00
parent fd584ec670
commit 4755604501
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/print.c
View file

@ -752,7 +752,7 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate)
`SIMPLE_VECTOR_REF ()' macro. */ `SIMPLE_VECTOR_REF ()' macro. */
for (i = 0; i < last; ++i) for (i = 0; i < last; ++i)
{ {
scm_iprin1 (scm_c_vector_ref (exp, i), scm_iprin1 (scm_c_weak_vector_ref (exp, i),
port, pstate); port, pstate);
scm_putc (' ', port); scm_putc (' ', port);
} }
@ -769,7 +769,10 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate)
if (i == last) if (i == last)
{ {
/* CHECK_INTS; */ /* CHECK_INTS; */
scm_iprin1 (scm_c_vector_ref (exp, i), port, pstate); scm_iprin1 (SCM_I_WVECTP (exp)
? scm_c_weak_vector_ref (exp, i)
: SCM_SIMPLE_VECTOR_REF (exp, i),
port, pstate);
} }
if (cutp) if (cutp)
scm_puts (" ...", port); scm_puts (" ...", port);