diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2002-12-15 11:27:01 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2002-12-15 11:27:01 +0000 |
commit | 2ff4f1815955aa0c6b759d3c160658fe576ba5ee (patch) | |
tree | e9ba9e5722f8c3e8db1f4afade6e77d9ca2bfdd9 /libguile/version.c | |
parent | edeea67b5a2141f4bd1c0c7784527aaee99a60e0 (diff) | |
download | guile-2ff4f1815955aa0c6b759d3c160658fe576ba5ee.tar.gz |
* version.c: Unmade some changes to my private copy that got
committed by mistake.
Diffstat (limited to 'libguile/version.c')
-rw-r--r-- | libguile/version.c | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/libguile/version.c b/libguile/version.c index 5e53b46f9..cd973e8be 100644 --- a/libguile/version.c +++ b/libguile/version.c @@ -59,7 +59,7 @@ 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_MAKINUM(1), + return scm_number_to_string (SCM_MAKINUM(SCM_MAJOR_VERSION), SCM_MAKINUM(10)); } #undef FUNC_NAME @@ -72,7 +72,7 @@ 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_MAKINUM(7), + return scm_number_to_string (SCM_MAKINUM(SCM_MINOR_VERSION), SCM_MAKINUM(10)); } #undef FUNC_NAME @@ -85,7 +85,7 @@ 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_MAKINUM(0), + return scm_number_to_string (SCM_MAKINUM(SCM_MICRO_VERSION), SCM_MAKINUM(10)); } #undef FUNC_NAME @@ -110,17 +110,15 @@ SCM_DEFINE (scm_version, "version", 0, 0, 0, char version_str[3 * 4 + 3]; -#if 0 #if SCM_MAJOR_VERSION > 9999 \ || SCM_MINOR_VERSION > 9999 \ || SCM_MICRO_VERSION > 9999 # error version string may overflow buffer #endif -#endif sprintf (version_str, "%d.%d.%d", - 1, - 7, - 0); + SCM_MAJOR_VERSION, + SCM_MINOR_VERSION, + SCM_MICRO_VERSION); return scm_makfrom0str (version_str); } #undef FUNC_NAME @@ -142,12 +140,10 @@ SCM_DEFINE (scm_effective_version, "effective-version", 0, 0, 0, char version_str[2 * 4 + 3]; -#if 0 #if (SCM_MAJOR_VERSION > 9999 || SCM_MINOR_VERSION > 9999) # error version string may overflow buffer #endif -#endif - sprintf (version_str, "%d.%d", 1, 7); + sprintf (version_str, "%d.%d", SCM_MAJOR_VERSION, SCM_MINOR_VERSION); return scm_makfrom0str (version_str); } #undef FUNC_NAME |