diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-05-15 00:52:20 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-05-15 00:52:20 +0000 |
commit | 9d47027ee6e0534e96e595bc7d517abe392d4fdb (patch) | |
tree | d677c391a30e97283c4600067e9377c229dabbc9 | |
parent | 5f89fb1313f9bbbd222c5240450e4b29fa9d8574 (diff) | |
download | guile-9d47027ee6e0534e96e595bc7d517abe392d4fdb.tar.gz |
(print_values): Print as a unreadable object, not as
multiple lines. Thanks to Matthias Köppe!
-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; } |