mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

* numbers.c (scm_odd_p, scm_even_p): Use SCM_WRONG_TYPE_ARG

Browse source 
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.)
This commit is contained in:
Mikael Djurfeldt 2000-04-21 11:35:39 +00:00
parent 9764c29b8c
commit a1a33b0f99
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/numbers.c
View file

@ -107,7 +107,7 @@ SCM_DEFINE (scm_odd_p, "odd?", 1, 0, 0,
return SCM_BOOL ((1 & SCM_BDIGITS (n) [0]) != 0); return SCM_BOOL ((1 & SCM_BDIGITS (n) [0]) != 0);
#endif #endif
} else { } else {
SCM_ASSERT (0, n, 1, FUNC_NAME); SCM_WRONG_TYPE_ARG (1, n);
} }
} }
#undef FUNC_NAME #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); return SCM_BOOL ((1 & SCM_BDIGITS (n) [0]) == 0);
#endif #endif
} else { } else {
SCM_ASSERT (0, n, 1, FUNC_NAME); SCM_WRONG_TYPE_ARG (1, n);
} }
} }
#undef FUNC_NAME #undef FUNC_NAME