mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 04:10:18 +02:00
(scm_modulo_expt): Renamed from
scm_modular_expt, matching scheme level name `modulo-expt'.
This commit is contained in:
parent
b7b8c57576
commit
d885e204fd
2 changed files with 3 additions and 3 deletions
|
@ -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;
|
||||
|
|
|
@ -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);
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue