Parent Directory | Revision Log | Patch
revision 1.135.2.9 by ossau, Fri Mar 15 09:23:19 2002 UTC | revision 1.135.2.10 by rlb, Thu May 16 16:48:12 2002 UTC | |
---|---|---|
# | Line 1121 SCM_DEFINE (scm_integer_expt, "integer-e | Line 1121 SCM_DEFINE (scm_integer_expt, "integer-e |
1121 | int i2; | int i2; |
1122 | #ifdef SCM_BIGDIG | #ifdef SCM_BIGDIG |
1123 | if (SCM_EQ_P (n, SCM_INUM0) || SCM_EQ_P (n, acc)) | if (SCM_EQ_P (n, SCM_INUM0) || SCM_EQ_P (n, acc)) |
1124 | return n; | return acc; |
1125 | else if (SCM_EQ_P (n, SCM_MAKINUM (-1L))) | else if (SCM_EQ_P (n, SCM_MAKINUM (-1L))) |
1126 | return SCM_FALSEP (scm_even_p (k)) ? n : acc; | return SCM_FALSEP (scm_even_p (k)) ? n : acc; |
1127 | #endif | #endif |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |