mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* version.c

Browse source 
(s_scm_major_version): use SCM_MAJOR_VERSION.
(s_scm_minor_version): use SCM_MINOR_VERSION.
(s_scm_micro_version): use SCM_MICRO_VERSION.
(s_scm_version): use SCM_MAJOR_VERSION, SCM_MINOR_VERSION, and
SCM_MICRO_VERSION.
This commit is contained in:
Rob Browning 2001-11-18 23:04:10 +00:00
parent 5c790b44f8
commit 76f33258bb
1 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
libguile/version.c
View file

@ -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(SCM_GUILE_MAJOR_VERSION),
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(SCM_GUILE_MINOR_VERSION),
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(SCM_GUILE_MICRO_VERSION),
return scm_number_to_string (SCM_MAKINUM(SCM_MICRO_VERSION),
SCM_MAKINUM(10));
}
#undef FUNC_NAME
@ -110,15 +110,15 @@ SCM_DEFINE (scm_version, "version", 0, 0, 0,
char version_str[3 * 4 + 3];
#if SCM_GUILE_MAJOR_VERSION > 9999 || SCM_GUILE_MINOR_VERSION > 9999 \
|| SCM_GUILE_MICRO_VERSION > 9999
#if SCM_MAJOR_VERSION > 9999 \
|| SCM_MINOR_VERSION > 9999 \
|| SCM_MICRO_VERSION > 9999
# error version string may overflow buffer
#endif
sprintf (version_str, "%d.%d.%d",
SCM_GUILE_MAJOR_VERSION,
SCM_GUILE_MINOR_VERSION,
SCM_GUILE_MICRO_VERSION);
SCM_MAJOR_VERSION,
SCM_MINOR_VERSION,
SCM_MICRO_VERSION);
return scm_makfrom0str (version_str);
}
#undef FUNC_NAME