diff options
| author | Andy Wingo <wingo@pobox.com> | 2021-12-03 14:23:51 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2022-01-13 09:37:16 +0100 |
| commit | 44c654aa3e40a86b488ba189be66aee661999cae (patch) | |
| tree | 58b87f801671bf7e9b8f20d65bfe4ed8b08e5c1e /libguile/integers.h | |
| parent | 5321899b9acc166003ca2c14a8c23f4bd881543a (diff) | |
| download | guile-44c654aa3e40a86b488ba189be66aee661999cae.tar.gz | |
Implement abs with new integer lib
* libguile/integers.c (scm_integer_abs_i, scm_integer_abs_z): New
internal functions.
* libguile/integers.h: Declare internal functions.
* libguile/numbers.c (scm_abs): Use the new 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 2bd937669..753ff1f74 100644 --- a/libguile/integers.h +++ b/libguile/integers.h @@ -26,6 +26,9 @@ SCM_INTERNAL int scm_is_integer_odd_i (scm_t_inum i); SCM_INTERNAL int scm_is_integer_odd_z (SCM z); +SCM_INTERNAL SCM scm_integer_abs_i (scm_t_inum i); +SCM_INTERNAL SCM scm_integer_abs_z (SCM z); + #endif /* SCM_INTEGERS_H */ |