guile/guile-core/libguile values.c

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/05/14 17:52:20

Modified files:
        guile-core/libguile: values.c 

Log message:
        (print_values): Print as a unreadable object, not as
        multiple lines.  Thanks to Matthias Köppe!

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/values.c.diff?cvsroot=OldCVS&tr1=1.3&tr2=1.4&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/values.c
diff -u guile/guile-core/libguile/values.c:1.3 
guile/guile-core/libguile/values.c:1.4
--- guile/guile-core/libguile/values.c:1.3      Mon Mar 26 14:43:23 2001
+++ guile/guile-core/libguile/values.c  Mon May 14 17:52:20 2001
@@ -61,13 +61,10 @@
   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;
 }