From d885e204fd3b01bea739f9836eb7790dac1e4b79 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Thu, 25 Mar 2004 21:55:20 +0000 Subject: [PATCH] (scm_modulo_expt): Renamed from scm_modular_expt, matching scheme level name `modulo-expt'. --- libguile/numbers.c | 4 ++-- 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);