summaryrefslogtreecommitdiff
path: root/libguile/print.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-03-04 11:25:22 +0100
committerAndy Wingo <wingo@pobox.com>2010-03-04 13:14:43 +0100
commitbbb2ecd1d1966766aa5f3fed7d5084b46cf1e8a7 (patch)
tree6f187ea63296e6f220baa58867fba3b94c801149 /libguile/print.c
parentdec84a0a6e164d7c92982ea78c27e85df56ed477 (diff)
downloadguile-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.c7
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))