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

add printer for dynamic-states

Browse source 
* libguile/fluids.c:
* libguile/fluids.h:
* libguile/print.c: Add dynamic-state printing infrastructure.
This commit is contained in:
Andy Wingo 2009-12-05 10:55:37 +01:00
parent 9ea31741da
commit 45cf242872
3 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/print.c
View file

@ -715,6 +715,9 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate)
case scm_tc7_fluid:
scm_i_fluid_print (exp, port, pstate);
break;
case scm_tc7_dynamic_state:
scm_i_dynamic_state_print (exp, port, pstate);
break;
case scm_tc7_wvect:
ENTER_NESTED_DATA (pstate, exp, circref);
if (SCM_IS_WHVEC (exp))