mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

(scm_modulo_expt): Renamed from

Browse source 
scm_modular_expt, matching scheme level name `modulo-expt'.
This commit is contained in:
Kevin Ryde 2004-03-25 21:55:20 +00:00
parent b7b8c57576
commit d885e204fd
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/numbers.c
View file

@ -1543,7 +1543,7 @@ coerce_to_big (SCM in, mpz_t out)
return 1; 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), (SCM n, SCM k, SCM m),
"Return @var{n} raised to the integer exponent\n" "Return @var{n} raised to the integer exponent\n"
"@var{k}, modulo @var{m}.\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" "(modulo-expt 2 3 5)\n"
" @result{} 3\n" " @result{} 3\n"
"@end lisp") "@end lisp")
#define FUNC_NAME s_scm_modular_expt #define FUNC_NAME s_scm_modulo_expt
{ {
mpz_t n_tmp; mpz_t n_tmp;
mpz_t k_tmp; mpz_t k_tmp;

2
libguile/numbers.h
View file

@ -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_logtest (SCM n1, SCM n2);
SCM_API SCM scm_logbit_p (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_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_integer_expt (SCM z1, SCM z2);
SCM_API SCM scm_ash (SCM n, SCM cnt); SCM_API SCM scm_ash (SCM n, SCM cnt);
SCM_API SCM scm_bit_extract (SCM n, SCM start, SCM end); SCM_API SCM scm_bit_extract (SCM n, SCM start, SCM end);