1122 |
#ifdef SCM_BIGDIG |
#ifdef SCM_BIGDIG |
1123 |
/* 0^0 == 1 according to R5RS */ |
/* 0^0 == 1 according to R5RS */ |
1124 |
if (SCM_EQ_P (n, SCM_INUM0) || SCM_EQ_P (n, acc)) |
if (SCM_EQ_P (n, SCM_INUM0) || SCM_EQ_P (n, acc)) |
1125 |
return SCM_EQ_P (k, SCM_INUM0)? acc : n; |
return SCM_FALSEP (scm_zero_p(k)) ? n : acc; |
1126 |
else if (SCM_EQ_P (n, SCM_MAKINUM (-1L))) |
else if (SCM_EQ_P (n, SCM_MAKINUM (-1L))) |
1127 |
return SCM_FALSEP (scm_even_p (k)) ? n : acc; |
return SCM_FALSEP (scm_even_p (k)) ? n : acc; |
1128 |
#endif |
#endif |