summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-04-21 11:35:39 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-04-21 11:35:39 +0000
commita1a33b0f996c39f1a6d9b86ba3ba865159885669 (patch)
treee5e77e1692b0dd97792ffefb89d7b127ae7730fb
parent9764c29b8cb268b18c850120f5f2a0929da13b3a (diff)
downloadguile-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.)
-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