mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

* version.c (s_scm_major_version): doc fixes.

Browse source 
(s_scm_minor_version): doc fixes.
(s_scm_minor_version): new function.
This commit is contained in:
Rob Browning 2001-05-17 04:54:27 +00:00
parent 7907f79949
commit b89d554bd0
1 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

16
libguile/version.c
View file

@ -56,7 +56,7 @@
SCM_DEFINE (scm_major_version, "major-version", 0, 0, 0, SCM_DEFINE (scm_major_version, "major-version", 0, 0, 0,
(), (),
"Return a string containing Guile's major version number.\n" "Return a string containing Guile's major version number.\n"
"E.g., \"1\".") "E.g., the 1 in \"1.6.5\".")
#define FUNC_NAME s_scm_major_version #define FUNC_NAME s_scm_major_version
{ {
return scm_makfrom0str (GUILE_MAJOR_VERSION); return scm_makfrom0str (GUILE_MAJOR_VERSION);
@ -68,13 +68,25 @@ SCM_DEFINE (scm_major_version, "major-version", 0, 0, 0,
SCM_DEFINE (scm_minor_version, "minor-version", 0, 0, 0, SCM_DEFINE (scm_minor_version, "minor-version", 0, 0, 0,
(), (),
"Return a string containing Guile's minor version number.\n" "Return a string containing Guile's minor version number.\n"
"E.g., \"3.5\".") "E.g., the 6 in \"1.6.5\".")
#define FUNC_NAME s_scm_minor_version #define FUNC_NAME s_scm_minor_version
{ {
return scm_makfrom0str (GUILE_MINOR_VERSION); return scm_makfrom0str (GUILE_MINOR_VERSION);
} }
#undef FUNC_NAME #undef FUNC_NAME
/* Return a Scheme string containing Guile's minor version number. */
SCM_DEFINE (scm_micro_version, "micro-version", 0, 0, 0,
(),
"Return a string containing Guile's micro version number.\n"
"E.g., the 5 in \"1.6.5\".")
#define FUNC_NAME s_scm_minor_version
{
return scm_makfrom0str (GUILE_MICRO_VERSION);
}
#undef FUNC_NAME
/* Return a Scheme string containing Guile's complete version. */ /* Return a Scheme string containing Guile's complete version. */
SCM_DEFINE (scm_version, "version", 0, 0, 0, SCM_DEFINE (scm_version, "version", 0, 0, 0,