* values.c (scm_values): Build lists of length 1 by using

	scm_list_1 instead of using scm_cons.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index d63de51..5a26eda 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-12  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+       * values.c (scm_values): Build lists of length 1 by using
+       scm_list_1 instead of using scm_cons.
+
 2003-07-10  Kevin Ryde  <user42@zip.com.au>
 
        * deprecation.c (scm_c_issue_deprecation_warning_fmt): Add va_end.

diff --git a/libguile/values.c b/libguile/values.c
index 2d44847..d67b459 100644 (file)
--- a/libguile/values.c
+++ b/libguile/values.c
@@ -62,7 +62,7 @@ SCM_DEFINE (scm_values, "values", 0, 0, 1,
   else
     {
       result = scm_make_struct (scm_values_vtable, SCM_INUM0,
-                               scm_cons (args, SCM_EOL));
+                               scm_list_1 (args));
     }
 
   return result;