diff options
author | Andy Wingo <wingo@pobox.com> | 2021-12-19 10:54:47 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2022-01-13 09:37:16 +0100 |
commit | 6298d731155ea35aecf68f21af81f1c4fd2f5e87 (patch) | |
tree | 5aef2df9105d09c1dc5e198cb7dbd343fd0c45aa /libguile/integers.h | |
parent | 459163fca16eacebefa463d514a9364e6adcb779 (diff) | |
download | guile-6298d731155ea35aecf68f21af81f1c4fd2f5e87.tar.gz |
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.
Diffstat (limited to 'libguile/integers.h')
-rw-r--r-- | libguile/integers.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/libguile/integers.h b/libguile/integers.h index 9fa41d914..56334f0a8 100644 --- a/libguile/integers.h +++ b/libguile/integers.h @@ -144,6 +144,10 @@ SCM_INTERNAL SCM scm_integer_logxor_ii (scm_t_inum x, scm_t_inum y); SCM_INTERNAL SCM scm_integer_logxor_zi (SCM x, scm_t_inum y); SCM_INTERNAL SCM scm_integer_logxor_zz (SCM x, SCM y); +SCM_INTERNAL int scm_integer_logtest_ii (scm_t_inum x, scm_t_inum y); +SCM_INTERNAL int scm_integer_logtest_zi (SCM x, scm_t_inum y); +SCM_INTERNAL int scm_integer_logtest_zz (SCM x, SCM y); + #endif /* SCM_INTEGERS_H */ |