diff options
author | Andy Wingo <wingo@pobox.com> | 2010-03-04 11:25:22 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-03-04 13:14:43 +0100 |
commit | bbb2ecd1d1966766aa5f3fed7d5084b46cf1e8a7 (patch) | |
tree | 6f187ea63296e6f220baa58867fba3b94c801149 /libguile/print.c | |
parent | dec84a0a6e164d7c92982ea78c27e85df56ed477 (diff) | |
download | guile-bbb2ecd1d1966766aa5f3fed7d5084b46cf1e8a7.tar.gz |
add printers for prompts and with-fluids objects
* 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.
Diffstat (limited to 'libguile/print.c')
-rw-r--r-- | libguile/print.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/libguile/print.c b/libguile/print.c index dcf28c7c2..8867e6b03 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -30,6 +30,7 @@ #include "libguile/chars.h" #include "libguile/continuations.h" #include "libguile/smob.h" +#include "libguile/control.h" #include "libguile/eval.h" #include "libguile/macros.h" #include "libguile/procprop.h" @@ -773,6 +774,12 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate) case scm_tc7_vm_cont: scm_i_vm_cont_print (exp, port, pstate); break; + case scm_tc7_prompt: + scm_i_prompt_print (exp, port, pstate); + break; + case scm_tc7_with_fluids: + scm_i_with_fluids_print (exp, port, pstate); + break; case scm_tc7_wvect: ENTER_NESTED_DATA (pstate, exp, circref); if (SCM_IS_WHVEC (exp)) |