diff options
Diffstat (limited to 'libguile/simpos.c')
-rw-r--r-- | libguile/simpos.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/libguile/simpos.c b/libguile/simpos.c index f6459c445..d23e949f4 100644 --- a/libguile/simpos.c +++ b/libguile/simpos.c @@ -218,10 +218,7 @@ SCM_DEFINE (scm_primitive_exit, "primitive-exit", 0, 1, 0, { int cstatus = 0; if (!SCM_UNBNDP (status)) - { - SCM_VALIDATE_INUM (1, status); - cstatus = SCM_INUM (status); - } + cstatus = scm_to_int (status); exit (cstatus); } #undef FUNC_NAME |