drop extra 2006-02-06 heading

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

diff --git a/libguile/version.c b/libguile/version.c
index 9c25cf6..9f5eedc 100644 (file)
--- a/libguile/version.c
+++ b/libguile/version.c
@@ -1,4 +1,4 @@
-/*     Copyright (C) 1995,1996, 1999, 2000, 2001 Free Software Foundation, Inc.
+/*     Copyright (C) 1995,1996, 1999, 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
  */
 
 
@@ -35,8 +35,8 @@ SCM_DEFINE (scm_major_version, "major-version", 0, 0, 0,
             "E.g., the 1 in \"1.6.5\".")
 #define FUNC_NAME s_scm_major_version
 {
-  return scm_number_to_string (SCM_I_MAKINUM(SCM_MAJOR_VERSION),
-                               SCM_I_MAKINUM(10));
+  return scm_number_to_string (scm_from_int (SCM_MAJOR_VERSION),
+                               scm_from_int (10));
 }
 #undef FUNC_NAME
 
@@ -48,8 +48,8 @@ SCM_DEFINE (scm_minor_version, "minor-version", 0, 0, 0,
             "E.g., the 6 in \"1.6.5\".")
 #define FUNC_NAME s_scm_minor_version
 {
-  return scm_number_to_string (SCM_I_MAKINUM(SCM_MINOR_VERSION),
-                               SCM_I_MAKINUM(10));
+  return scm_number_to_string (scm_from_int (SCM_MINOR_VERSION),
+                               scm_from_int (10));
 }
 #undef FUNC_NAME
 
@@ -61,8 +61,8 @@ SCM_DEFINE (scm_micro_version, "micro-version", 0, 0, 0,
             "E.g., the 5 in \"1.6.5\".")
 #define FUNC_NAME s_scm_micro_version
 {
-  return scm_number_to_string (SCM_I_MAKINUM(SCM_MICRO_VERSION),
-                               SCM_I_MAKINUM(10));
+  return scm_number_to_string (scm_from_int (SCM_MICRO_VERSION),
+                               scm_from_int (10));
 }
 #undef FUNC_NAME
 
@@ -95,7 +95,7 @@ SCM_DEFINE (scm_version, "version", 0, 0, 0,
            SCM_MAJOR_VERSION,
            SCM_MINOR_VERSION,
            SCM_MICRO_VERSION);
-  return scm_makfrom0str (version_str);
+  return scm_from_locale_string (version_str);
 }
 #undef FUNC_NAME
 
@@ -120,7 +120,7 @@ SCM_DEFINE (scm_effective_version, "effective-version", 0, 0, 0,
 # error version string may overflow buffer
 #endif
   sprintf (version_str, "%d.%d", SCM_MAJOR_VERSION, SCM_MINOR_VERSION);
-  return scm_makfrom0str (version_str);
+  return scm_from_locale_string (version_str);
 }
 #undef FUNC_NAME