diff options
| author | Marius Vollmer <mvo@zagadka.de> | 2004-07-08 15:58:11 +0000 |
|---|---|---|
| committer | Marius Vollmer <mvo@zagadka.de> | 2004-07-08 15:58:11 +0000 |
| commit | 93ccaef0c60868bb1a6e0747387ce34c0172b53e (patch) | |
| tree | 867f5f7dbb2cdf28ed68ce2bac89f0c8878be657 /libguile/gsubr.c | |
| parent | 43240c9caf66f802ba50df685e3e8b44e38906a5 (diff) | |
* numbers.h (SCM_MAKINUM, SCM_I_MAKINUM): Renamed SCM_MAKINUM to
SCM_I_MAKINUM and changed all uses.
Diffstat (limited to 'libguile/gsubr.c')
| -rw-r--r-- | libguile/gsubr.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/gsubr.c b/libguile/gsubr.c index e1cc30700..419fad40d 100644 --- a/libguile/gsubr.c +++ b/libguile/gsubr.c @@ -86,7 +86,7 @@ create_gsubr (int define, const char *name, } SCM_SET_GSUBR_PROC (cclo, subr); SCM_SET_GSUBR_TYPE (cclo, - SCM_MAKINUM (SCM_GSUBR_MAKTYPE (req, opt, rst))); + SCM_I_MAKINUM (SCM_GSUBR_MAKTYPE (req, opt, rst))); if (SCM_REC_PROCNAMES_P) scm_set_procedure_property_x (cclo, scm_sym_name, sym); if (define) @@ -193,7 +193,7 @@ scm_gsubr_apply (SCM args) if (n > SCM_GSUBR_MAX) scm_misc_error (FUNC_NAME, "Function ~S has illegal arity ~S.", - scm_list_2 (self, SCM_MAKINUM (n))); + scm_list_2 (self, SCM_I_MAKINUM (n))); #endif args = SCM_CDR (args); for (i = 0; i < SCM_GSUBR_REQ (typ); i++) { |