Implement scm_logtest with new integer library

* libguile/integers.c (scm_integer_logtest_ii, scm_integer_logtest_zi)
(scm_integer_logtest_zz): New internal functions.
* libguile/integers.h: Declare the new internal functions.
* libguile/numbers.c (scm_logtest): Use new internal functions.

1 files changed, 19 insertions, 0 deletions

diff --git a/libguile/integers.c b/libguile/integers.c
index 174e42e18..ff5499af9 100644
--- a/libguile/integers.c
+++ b/libguile/integers.c
@@ -27,6 +27,7 @@
 #include <stdio.h>
 #include <verify.h>
 
+#include "boolean.h"
 #include "numbers.h"
 
 #include "integers.h"
@@ -1989,3 +1990,21 @@ scm_integer_logxor_zz (SCM x, SCM y)
   scm_remember_upto_here_2 (x, y);
   return take_mpz (result);
 }
+
+int
+scm_integer_logtest_ii (scm_t_inum x, scm_t_inum y)
+{
+  return (x & y) ? 1 : 0;
+}
+
+int
+scm_integer_logtest_zi (SCM x, scm_t_inum y)
+{
+  return scm_is_eq (scm_integer_logand_zi (x, y), SCM_INUM0);
+}
+
+int
+scm_integer_logtest_zz (SCM x, SCM y)
+{
+  return scm_is_eq (scm_integer_logand_zz (x, y), SCM_INUM0);
+}