summaryrefslogtreecommitdiff
path: root/libguile
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2004-03-25 21:55:20 +0000
committerKevin Ryde <user42@zip.com.au>2004-03-25 21:55:20 +0000
commitd885e204fd3b01bea739f9836eb7790dac1e4b79 (patch)
tree51fe00ccde3e2fd0dafd2bdaac297cb40d691fed /libguile
parentb7b8c575762cde27b25cd32744e6d70829ee0d46 (diff)
downloadguile-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.c4
-rw-r--r--libguile/numbers.h2
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);