dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add printers for prompts and with-fluids objects

Browse source 
* libguile/control.c:
* libguile/control.h (scm_i_prompt_print):
* libguile/fluids.c:
* libguile/fluids.h (scm_i_with_fluids_print):
* libguile/print.c (iprin1): Add printers for prompts and with-fluids
  objects.
This commit is contained in:
Andy Wingo 2010-03-04 11:25:22 +01:00
commit bbb2ecd1d1
5 changed files with 25 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/fluids.c
View file

@ -120,6 +120,14 @@ scm_i_dynamic_state_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED
scm_putc ('>', port);
}
void
scm_i_with_fluids_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
{
scm_puts ("#<with-fluids ", port);
scm_intprint (SCM_UNPACK (exp), 16, port);
scm_putc ('>', port);
}
static size_t
next_fluid_num ()
{