diff options
| author | Andy Wingo <wingo@pobox.com> | 2022-01-07 11:18:48 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2022-01-13 09:37:17 +0100 |
| commit | a4524da8c1b5ce6407931e6fab8ffa727370a798 (patch) | |
| tree | 77516dc58d4a5655393800907d0fbaa0d483bef8 /libguile/integers.h | |
| parent | 0754dbf3e831ebaadcabf84b3f48012e1c8dbaef (diff) | |
| download | guile-a4524da8c1b5ce6407931e6fab8ffa727370a798.tar.gz | |
Simplify scm_exact_integer_quotient
* libguile/integers.h:
* libguile/integers.c (scm_integer_exact_quotient_iz): New internal
function.
* libguile/numbers.c (scm_i_make_ratio): Simplify and enforce
invariants.
(scm_exact_integer_quotient): Use integer lib.
Diffstat (limited to 'libguile/integers.h')
| -rw-r--r-- | libguile/integers.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/integers.h b/libguile/integers.h index 1acfc1609..470d3ea54 100644 --- a/libguile/integers.h +++ b/libguile/integers.h @@ -197,6 +197,8 @@ SCM_INTERNAL int scm_is_integer_divisible_zz (struct scm_bignum *x, struct scm_bignum *y); SCM_INTERNAL SCM scm_integer_exact_quotient_ii (scm_t_inum n, scm_t_inum d); +SCM_INTERNAL SCM scm_integer_exact_quotient_iz (scm_t_inum n, + struct scm_bignum *d); SCM_INTERNAL SCM scm_integer_exact_quotient_zi (struct scm_bignum *n, scm_t_inum d); SCM_INTERNAL SCM scm_integer_exact_quotient_zz (struct scm_bignum *n, |