summaryrefslogtreecommitdiff
path: root/libguile/values.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/values.c')
-rw-r--r--libguile/values.c11
1 files changed, 4 insertions, 7 deletions
diff --git a/libguile/values.c b/libguile/values.c
index a5377e690..b37124759 100644
--- a/libguile/values.c
+++ b/libguile/values.c
@@ -61,13 +61,10 @@ print_values (SCM obj, SCM pwps)
SCM port = SCM_PORT_WITH_PS_PORT (pwps);
scm_print_state *ps = SCM_PRINT_STATE (SCM_PORT_WITH_PS_PS (pwps));
- while (SCM_CONSP (values))
- {
- scm_iprin1 (SCM_CAR (values), port, ps);
- values = SCM_CDR (values);
- if (SCM_CONSP (values))
- scm_newline (port);
- }
+ scm_puts ("#<values ", port);
+ scm_iprin1 (values, port, ps);
+ scm_puts (">", port);
+
return SCM_UNSPECIFIED;
}