drop extra 2006-02-06 heading

[bpt/guile.git] / libguile / values.c

diff --git a/libguile/values.c b/libguile/values.c
index 2d44847..46b51c2 100644 (file)
--- a/libguile/values.c
+++ b/libguile/values.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2000, 2001 Free Software Foundation, Inc.
+/* Copyright (C) 2000, 2001, 2006 Free Software Foundation, Inc.
  * 
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public
@@ -12,7 +12,7 @@
  *
  * You should have received a copy of the GNU Lesser General Public
  * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  */
 
 #include "libguile/_scm.h"
@@ -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;
@@ -76,8 +76,10 @@ scm_init_values (void)
                                 print_values);
 
   scm_values_vtable 
-    = scm_permanent_object (scm_make_vtable_vtable (scm_makfrom0str ("pr"),
-                                                   SCM_INUM0, SCM_EOL));
+    = scm_permanent_object (
+        scm_make_vtable_vtable (scm_from_locale_string ("pr"),
+                               SCM_INUM0, SCM_EOL));
+
   SCM_SET_STRUCT_PRINTER (scm_values_vtable, print);
 
   scm_add_feature ("values");