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

diff --git a/libguile/numbers.c b/libguile/numbers.c
index bb01d7a..24c1e0f 100644 (file)
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -1245,7 +1245,7 @@ SCM_DEFINE (scm_integer_expt, "integer-expt", 2, 0, 0,
   int i2;
 #ifdef SCM_BIGDIG
   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)))
     return SCM_FALSEP (scm_even_p (k)) ? n : acc;
 #endif