From a1a33b0f996c39f1a6d9b86ba3ba865159885669 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Fri, 21 Apr 2000 11:35:39 +0000
Subject: [PATCH] * 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.)

---
 libguile/numbers.c | 4 ++--
 1 file 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