diff options
Diffstat (limited to 'libguile/print.c')
-rw-r--r-- | libguile/print.c | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/libguile/print.c b/libguile/print.c index 6e3d1f444..715037b67 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -45,6 +45,7 @@ #include "libguile/vectors.h" #include "libguile/lang.h" #include "libguile/numbers.h" +#include "libguile/vm.h" #include "libguile/validate.h" #include "libguile/print.h" @@ -720,6 +721,18 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate) case scm_tc7_dynamic_state: scm_i_dynamic_state_print (exp, port, pstate); break; + case scm_tc7_frame: + scm_i_frame_print (exp, port, pstate); + break; + case scm_tc7_objcode: + scm_i_objcode_print (exp, port, pstate); + break; + case scm_tc7_vm: + scm_i_vm_print (exp, port, pstate); + break; + case scm_tc7_vm_cont: + scm_i_vm_cont_print (exp, port, pstate); + break; case scm_tc7_wvect: ENTER_NESTED_DATA (pstate, exp, circref); if (SCM_IS_WHVEC (exp)) |