From 9d47027ee6e0534e96e595bc7d517abe392d4fdb Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Tue, 15 May 2001 00:52:20 +0000 Subject: [PATCH] =?UTF-8?q?(print=5Fvalues):=20Print=20as=20a=20unreadable?= =?UTF-8?q?=20object,=20not=20as=20multiple=20lines.=20=20Thanks=20to=20Ma?= =?UTF-8?q?tthias=20K=C3=B6ppe!?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- libguile/values.c | 11 ++++------- 1 file 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 ("#", port); + return SCM_UNSPECIFIED; }