diff options
Diffstat (limited to 'libguile/values.c')
-rw-r--r-- | libguile/values.c | 11 |
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; } |