* 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.)

diff --git a/libguile/numbers.c b/libguile/numbers.c
index 36062c1..1c89744 100644 (file)
--- 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