summaryrefslogtreecommitdiff
path: root/libguile/simpos.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/simpos.c')
-rw-r--r--libguile/simpos.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/simpos.c b/libguile/simpos.c
index e23397baa..51f76e6ec 100644
--- a/libguile/simpos.c
+++ b/libguile/simpos.c
@@ -130,7 +130,7 @@ is @var{status} if supplied, otherwise zero.")
int cstatus = 0;
if (!SCM_UNBNDP (status))
{
- SCM_VALIDATE_INT(1,status);
+ SCM_VALIDATE_INUM(1,status);
cstatus = SCM_INUM (status);
}
exit (cstatus);