mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

(print_values): Print as a unreadable object, not as

Browse source 
multiple lines.  Thanks to Matthias Köppe!
This commit is contained in:
Marius Vollmer 2001-05-15 00:52:20 +00:00
parent 5f89fb1313
commit 9d47027ee6
1 changed files with 4 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/values.c
View file

@ -61,13 +61,10 @@ print_values (SCM obj, SCM pwps)
SCM port = SCM_PORT_WITH_PS_PORT (pwps); SCM port = SCM_PORT_WITH_PS_PORT (pwps);
scm_print_state *ps = SCM_PRINT_STATE (SCM_PORT_WITH_PS_PS (pwps)); scm_print_state *ps = SCM_PRINT_STATE (SCM_PORT_WITH_PS_PS (pwps));
while (SCM_CONSP (values)) scm_puts ("#<values ", port);
{ scm_iprin1 (values, port, ps);
scm_iprin1 (SCM_CAR (values), port, ps); scm_puts (">", port);
values = SCM_CDR (values);
if (SCM_CONSP (values))
scm_newline (port);
}
return SCM_UNSPECIFIED; return SCM_UNSPECIFIED;
} }