summaryrefslogtreecommitdiff
path: root/libguile/numbers.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/numbers.c')
-rw-r--r--libguile/numbers.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c
index 36062c1a6..1c897447a 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -107,7 +107,7 @@ SCM_DEFINE (scm_odd_p, "odd?", 1, 0, 0,
return SCM_BOOL ((1 & SCM_BDIGITS (n) [0]) != 0);
#endif
} else {
- SCM_ASSERT (0, n, 1, FUNC_NAME);
+ SCM_WRONG_TYPE_ARG (1, n);
}
}
#undef FUNC_NAME
@@ -125,7 +125,7 @@ SCM_DEFINE (scm_even_p, "even?", 1, 0, 0,
return SCM_BOOL ((1 & SCM_BDIGITS (n) [0]) == 0);
#endif
} else {
- SCM_ASSERT (0, n, 1, FUNC_NAME);
+ SCM_WRONG_TYPE_ARG (1, n);
}
}
#undef FUNC_NAME