diff options
author | Andy Wingo <wingo@pobox.com> | 2021-12-13 09:50:14 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2022-01-13 09:37:16 +0100 |
commit | cbd62a0ef30d63eb83748c51a0ea1bac491c3a8c (patch) | |
tree | 11f918b0aa7d8b1dac025ee37dee342c9ed08a47 /libguile/integers.h | |
parent | ff636774b4f7ecf4f1f43721d9afde9d32fb53c1 (diff) | |
download | guile-cbd62a0ef30d63eb83748c51a0ea1bac491c3a8c.tar.gz |
Implement truncate-remainder with new integer lib
* libguile/integers.c (scm_integer_truncate_remainder_ii)
(scm_integer_truncate_remainder_iz, scm_integer_truncate_remainder_zi)
(scm_integer_truncate_remainder_zz): New internal functions.
* libguile/integers.h: Declare internal functions.
* libguile/numbers.c (scm_truncate_remainder): Use the new functions.
Diffstat (limited to 'libguile/integers.h')
-rw-r--r-- | libguile/integers.h | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/libguile/integers.h b/libguile/integers.h index 9707444f7..9b6d8b5d2 100644 --- a/libguile/integers.h +++ b/libguile/integers.h @@ -72,6 +72,11 @@ SCM_INTERNAL SCM scm_integer_truncate_quotient_iz (scm_t_inum x, SCM y); SCM_INTERNAL SCM scm_integer_truncate_quotient_zi (SCM x, scm_t_inum y); SCM_INTERNAL SCM scm_integer_truncate_quotient_zz (SCM x, SCM y); +SCM_INTERNAL SCM scm_integer_truncate_remainder_ii (scm_t_inum x, scm_t_inum y); +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); + #endif /* SCM_INTEGERS_H */ |