summaryrefslogtreecommitdiff
path: root/libguile/print.c
diff options
context:
space:
mode:
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 a68b99643..86f2b81fb 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -60,6 +60,7 @@
#include "struct.h"
#include "symbols.h"
#include "syntax.h"
+#include "values.h"
#include "variable.h"
#include "vectors.h"
#include "vm.h"
@@ -703,6 +704,12 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate)
case scm_tc7_variable:
scm_i_variable_print (exp, port, pstate);
break;
+ case scm_tc7_values:
+ scm_puts ("#<values (", port);
+ print_vector_or_weak_vector (exp, scm_i_nvalues (exp),
+ scm_c_value_ref, port, pstate);
+ scm_puts (">", port);
+ break;
case scm_tc7_program:
scm_i_program_print (exp, port, pstate);
break;