Parent Directory | Revision Log | Patch
revision 1.170 by ghouston, Tue Sep 24 22:21:01 2002 UTC | revision 1.171 by rlb, Sat Oct 5 04:27:35 2002 UTC | |
---|---|---|
# | Line 1245 SCM_DEFINE (scm_integer_expt, "integer-e | Line 1245 SCM_DEFINE (scm_integer_expt, "integer-e |
1245 | int i2; | int i2; |
1246 | #ifdef SCM_BIGDIG | #ifdef SCM_BIGDIG |
1247 | if (SCM_EQ_P (n, SCM_INUM0) || SCM_EQ_P (n, acc)) | if (SCM_EQ_P (n, SCM_INUM0) || SCM_EQ_P (n, acc)) |
1248 | return n; | return acc; |
1249 | else if (SCM_EQ_P (n, SCM_MAKINUM (-1L))) | else if (SCM_EQ_P (n, SCM_MAKINUM (-1L))) |
1250 | return SCM_FALSEP (scm_even_p (k)) ? n : acc; | return SCM_FALSEP (scm_even_p (k)) ? n : acc; |
1251 | #endif | #endif |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |