diff options
| author | Andy Wingo <wingo@pobox.com> | 2022-01-07 10:11:45 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2022-01-13 09:37:17 +0100 |
| commit | f167627bb06d09bcd20432ab25c2b0a4daf5c6fa (patch) | |
| tree | 95d833cf13eb26c17bdc1c14515bee7c95422028 /libguile/integers.h | |
| parent | 124d8892274e7293f12ac4d1c4bf0053d6d3a51d (diff) | |
| download | guile-f167627bb06d09bcd20432ab25c2b0a4daf5c6fa.tar.gz | |
Expose frexp from integers lib
* libguile/integers.h:
* libguile/integers.c (scm_integer_frexp_z): Expose internally.
(scm_integer_to_double_z):
(scm_integer_inexact_sqrt_z): Adapt uses.
* libguile/numbers.c (log_of_exact_integer): Use exposed
scm_integer_frexp_z.
Diffstat (limited to 'libguile/integers.h')
| -rw-r--r-- | libguile/integers.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/integers.h b/libguile/integers.h index 00706d553..1d406b659 100644 --- a/libguile/integers.h +++ b/libguile/integers.h @@ -169,6 +169,7 @@ SCM_INTERNAL int scm_is_integer_less_than_rz (double y, struct scm_bignum *x); SCM_INTERNAL int scm_is_integer_positive_z (struct scm_bignum *x); SCM_INTERNAL int scm_is_integer_negative_z (struct scm_bignum *x); +SCM_INTERNAL double scm_integer_frexp_z (struct scm_bignum *x, long *exp); SCM_INTERNAL double scm_integer_to_double_z (struct scm_bignum *x); SCM_INTERNAL SCM scm_integer_from_double (double val); |