diff options
| author | Andy Wingo <wingo@pobox.com> | 2021-12-13 09:58:55 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2022-01-13 09:37:16 +0100 |
| commit | f8a92773ac7cb99188ad69603e63f3d54b21dec8 (patch) | |
| tree | 1bad3d84a8058d2cc579a7528b95996a003aaa58 /libguile/integers.h | |
| parent | cbd62a0ef30d63eb83748c51a0ea1bac491c3a8c (diff) | |
| download | guile-f8a92773ac7cb99188ad69603e63f3d54b21dec8.tar.gz | |
Implement truncate-divide with new integer lib
* libguile/integers.c (scm_integer_truncate_divide_ii)
(scm_integer_truncate_divide_iz, scm_integer_truncate_divide_zi)
(scm_integer_truncate_divide_zz): New internal functions.
* libguile/integers.h: Declare internal functions.
* libguile/numbers.c (scm_truncate_divide): Use the new functions.
Diffstat (limited to 'libguile/integers.h')
| -rw-r--r-- | libguile/integers.h | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/libguile/integers.h b/libguile/integers.h index 9b6d8b5d2..bd25a4b48 100644 --- a/libguile/integers.h +++ b/libguile/integers.h @@ -77,6 +77,15 @@ SCM_INTERNAL SCM scm_integer_truncate_remainder_iz (scm_t_inum x, SCM y); SCM_INTERNAL SCM scm_integer_truncate_remainder_zi (SCM x, scm_t_inum y); SCM_INTERNAL SCM scm_integer_truncate_remainder_zz (SCM x, SCM y); +SCM_INTERNAL void scm_integer_truncate_divide_ii (scm_t_inum x, scm_t_inum y, + SCM *qp, SCM *rp); +SCM_INTERNAL void scm_integer_truncate_divide_iz (scm_t_inum x, SCM y, + SCM *qp, SCM *rp); +SCM_INTERNAL void scm_integer_truncate_divide_zi (SCM x, scm_t_inum y, + SCM *qp, SCM *rp); +SCM_INTERNAL void scm_integer_truncate_divide_zz (SCM x, SCM y, + SCM *qp, SCM *rp); + #endif /* SCM_INTEGERS_H */ |