diff options
Diffstat (limited to 'libguile/version.c')
-rw-r--r-- | libguile/version.c | 31 |
1 files changed, 19 insertions, 12 deletions
diff --git a/libguile/version.c b/libguile/version.c index 74aa556e0..2c453b0c5 100644 --- a/libguile/version.c +++ b/libguile/version.c @@ -38,6 +38,10 @@ * If you write modifications of your own for GUILE, it is your choice * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ + +/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, + gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ + #include "_scm.h" @@ -48,33 +52,36 @@ /* Return a Scheme string containing Guile's major version number. */ -SCM_PROC(s_major_version, "major-version", 0, 0, 0, scm_major_version); - -SCM -scm_major_version () +GUILE_PROC(scm_major_version, "major-version", 0, 0, 0, + (), +"") +#define FUNC_NAME s_scm_major_version { return scm_makfrom0str (GUILE_MAJOR_VERSION); } +#undef FUNC_NAME /* Return a Scheme string containing Guile's minor version number. */ -SCM_PROC(s_minor_version, "minor-version", 0, 0, 0, scm_minor_version); - -SCM -scm_minor_version () +GUILE_PROC(scm_minor_version, "minor-version", 0, 0, 0, + (), +"") +#define FUNC_NAME s_scm_minor_version { return scm_makfrom0str (GUILE_MINOR_VERSION); } +#undef FUNC_NAME /* Return a Scheme string containing Guile's complete version. */ -SCM_PROC(s_version, "version", 0, 0, 0, scm_version); - -SCM -scm_version () +GUILE_PROC(scm_version, "version", 0, 0, 0, + (), +"") +#define FUNC_NAME s_scm_version { return scm_makfrom0str (GUILE_VERSION); } +#undef FUNC_NAME |