diff options
Diffstat (limited to 'libguile/print.c')
-rw-r--r-- | libguile/print.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/libguile/print.c b/libguile/print.c index 152baef6e..74f7d8db6 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -35,6 +35,7 @@ #include "libguile/procprop.h" #include "libguile/read.h" #include "libguile/weaks.h" +#include "libguile/programs.h" #include "libguile/unif.h" #include "libguile/alist.h" #include "libguile/struct.h" @@ -682,6 +683,9 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate) case scm_tc7_variable: scm_i_variable_print (exp, port, pstate); break; + case scm_tc7_program: + scm_i_program_print (exp, port, pstate); + break; case scm_tc7_wvect: ENTER_NESTED_DATA (pstate, exp, circref); if (SCM_IS_WHVEC (exp)) |