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

* numbers.c (s_scm_integer_expt): (expt 0 1) should be 1.

Browse source
This commit is contained in:
Rob Browning 2002-10-05 04:27:35 +00:00
parent 9bc548798d
commit 20bf9a3cfe
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/numbers.c
View file

@ -1245,7 +1245,7 @@ SCM_DEFINE (scm_integer_expt, "integer-expt", 2, 0, 0,
int i2; int i2;
#ifdef SCM_BIGDIG #ifdef SCM_BIGDIG
if (SCM_EQ_P (n, SCM_INUM0) || SCM_EQ_P (n, acc)) if (SCM_EQ_P (n, SCM_INUM0) || SCM_EQ_P (n, acc))
return n; return acc;
else if (SCM_EQ_P (n, SCM_MAKINUM (-1L))) else if (SCM_EQ_P (n, SCM_MAKINUM (-1L)))
return SCM_FALSEP (scm_even_p (k)) ? n : acc; return SCM_FALSEP (scm_even_p (k)) ? n : acc;
#endif #endif