diff options
| author | Andy Wingo <wingo@pobox.com> | 2021-12-19 11:06:36 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2022-01-13 09:37:16 +0100 |
| commit | 89cd48fcac6c8b11a1a1cb155d3ddf6747719e7c (patch) | |
| tree | 1a429a377d5f2fa90c9284d0b148a1d30160dcd7 /libguile/integers.h | |
| parent | 6298d731155ea35aecf68f21af81f1c4fd2f5e87 (diff) | |
| download | guile-89cd48fcac6c8b11a1a1cb155d3ddf6747719e7c.tar.gz | |
Implement scm_logbit_p with new integer library
* libguile/integers.c (scm_integer_logbit_ui, scm_integer_logbit_uz):
* libguile/integers.h: Declare the new internal functions.
* libguile/numbers.c (scm_logbit_p): Use new internal functions.
Diffstat (limited to 'libguile/integers.h')
| -rw-r--r-- | libguile/integers.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/libguile/integers.h b/libguile/integers.h index 56334f0a8..feba5963f 100644 --- a/libguile/integers.h +++ b/libguile/integers.h @@ -148,6 +148,9 @@ 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); +SCM_INTERNAL int scm_integer_logbit_ui (unsigned long bit, scm_t_inum n); +SCM_INTERNAL int scm_integer_logbit_uz (unsigned long bit, SCM n); + #endif /* SCM_INTEGERS_H */ |