diff options
author | Kevin Ryde <user42@zip.com.au> | 2004-03-25 21:55:20 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2004-03-25 21:55:20 +0000 |
commit | d885e204fd3b01bea739f9836eb7790dac1e4b79 (patch) | |
tree | 51fe00ccde3e2fd0dafd2bdaac297cb40d691fed /libguile | |
parent | b7b8c575762cde27b25cd32744e6d70829ee0d46 (diff) | |
download | guile-d885e204fd3b01bea739f9836eb7790dac1e4b79.tar.gz |
(scm_modulo_expt): Renamed from
scm_modular_expt, matching scheme level name `modulo-expt'.
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/numbers.c | 4 | ||||
-rw-r--r-- | libguile/numbers.h | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c index d411265f6..82b890dda 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -1543,7 +1543,7 @@ coerce_to_big (SCM in, mpz_t out) return 1; } -SCM_DEFINE (scm_modular_expt, "modulo-expt", 3, 0, 0, +SCM_DEFINE (scm_modulo_expt, "modulo-expt", 3, 0, 0, (SCM n, SCM k, SCM m), "Return @var{n} raised to the integer exponent\n" "@var{k}, modulo @var{m}.\n" @@ -1552,7 +1552,7 @@ SCM_DEFINE (scm_modular_expt, "modulo-expt", 3, 0, 0, "(modulo-expt 2 3 5)\n" " @result{} 3\n" "@end lisp") -#define FUNC_NAME s_scm_modular_expt +#define FUNC_NAME s_scm_modulo_expt { mpz_t n_tmp; mpz_t k_tmp; diff --git a/libguile/numbers.h b/libguile/numbers.h index e6238fe3c..bf33c473a 100644 --- a/libguile/numbers.h +++ b/libguile/numbers.h @@ -201,7 +201,7 @@ SCM_API SCM scm_logxor (SCM n1, SCM n2); SCM_API SCM scm_logtest (SCM n1, SCM n2); SCM_API SCM scm_logbit_p (SCM n1, SCM n2); SCM_API SCM scm_lognot (SCM n); -SCM_API SCM scm_modular_expt (SCM n, SCM k, SCM m); +SCM_API SCM scm_modulo_expt (SCM n, SCM k, SCM m); SCM_API SCM scm_integer_expt (SCM z1, SCM z2); SCM_API SCM scm_ash (SCM n, SCM cnt); SCM_API SCM scm_bit_extract (SCM n, SCM start, SCM end); |