* validate.h, deprecated.h (SCM_VALIDATE_INUM, SCM_VALIDATE_INUM_COPY,

[bpt/guile.git] / libguile / simpos.c

diff --git a/libguile/simpos.c b/libguile/simpos.c
index f6459c4..d23e949 100644 (file)
--- 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