diff options
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/numbers.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c index 4a177ca2c..5e86a5441 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -1246,7 +1246,7 @@ SCM_DEFINE (scm_integer_expt, "integer-expt", 2, 0, 0, #ifdef SCM_BIGDIG /* 0^0 == 1 according to R5RS */ if (SCM_EQ_P (n, SCM_INUM0) || SCM_EQ_P (n, acc)) - return SCM_EQ_P (k, SCM_INUM0)? acc : n; + return SCM_FALSEP (scm_zero_p(k)) ? n : acc; else if (SCM_EQ_P (n, SCM_MAKINUM (-1L))) return SCM_FALSEP (scm_even_p (k)) ? n : acc; #endif |