diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-04-21 11:35:39 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-04-21 11:35:39 +0000 |
commit | a1a33b0f996c39f1a6d9b86ba3ba865159885669 (patch) | |
tree | e5e77e1692b0dd97792ffefb89d7b127ae7730fb /libguile/numbers.c | |
parent | 9764c29b8cb268b18c850120f5f2a0929da13b3a (diff) | |
download | guile-a1a33b0f996c39f1a6d9b86ba3ba865159885669.tar.gz |
* numbers.c (scm_odd_p, scm_even_p): Use SCM_WRONG_TYPE_ARG
instead of SCM_ASSERT (0, ...). (Some compilers will complain
about control reaching end of function otherwise, and, besides,
the new code is not less clear.)
Diffstat (limited to 'libguile/numbers.c')
-rw-r--r-- | libguile/numbers.c | 4 |
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 |