diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-07-23 15:43:02 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-07-23 15:43:02 +0000 |
commit | e11e83f3d99305ada6354cae7123fb8c0e998703 (patch) | |
tree | 23dccd2a0fd1741abb8561214acadc347036480b /libguile/version.c | |
parent | 928e0f421070bb610f3375d5808a6378d5edfa1b (diff) | |
download | guile-e11e83f3d99305ada6354cae7123fb8c0e998703.tar.gz |
* deprecated.h, deprecated.c, numbers.h (SCM_INUMP, SCM_NINUMP,
SCM_INUM): Deprecated by reenaming them to SCM_I_INUMP, SCM_I_NINUMP
and SCM_I_INUM, respectively and adding deprecated versions to
deprecated.h and deprecated.c. Changed all uses to either use the
SCM_I_ variants or scm_is_*, scm_to_*, or scm_from_*, as appropriate.
Diffstat (limited to 'libguile/version.c')
-rw-r--r-- | libguile/version.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/libguile/version.c b/libguile/version.c index 9c25cf608..3a811f01e 100644 --- a/libguile/version.c +++ b/libguile/version.c @@ -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 |