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/simpos.c | |
| parent | 928e0f421070bb610f3375d5808a6378d5edfa1b (diff) | |
* 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/simpos.c')
| -rw-r--r-- | libguile/simpos.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/simpos.c b/libguile/simpos.c index d23e949f4..a37423f56 100644 --- a/libguile/simpos.c +++ b/libguile/simpos.c @@ -75,7 +75,7 @@ SCM_DEFINE (scm_system, "system", 0, 1, 0, rv = system (SCM_STRING_CHARS (cmd)); if (rv == -1 || (rv == 127 && errno != 0)) SCM_SYSERROR; - return SCM_I_MAKINUM (rv); + return scm_from_int (rv); } #undef FUNC_NAME #endif /* HAVE_SYSTEM */ @@ -183,7 +183,7 @@ SCM_DEFINE (scm_system_star, "system*", 0, 0, 1, scm_sigaction (sigint, SCM_CAR (oldint), SCM_CDR (oldint)); scm_sigaction (sigquit, SCM_CAR (oldquit), SCM_CDR (oldquit)); scm_remember_upto_here_2 (oldint, oldquit); - return SCM_I_MAKINUM (0L + status); + return scm_from_int (status); } } else |