/[guile]/guile/guile-core/libguile/numbers.c
ViewVC logotype

Diff of /guile/guile-core/libguile/numbers.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.135.2.11 by mvo, Sun Nov 3 17:10:21 2002 UTC revision 1.135.2.12 by mvo, Sun Nov 3 22:02:10 2002 UTC
# Line 1122  SCM_DEFINE (scm_integer_expt, "integer-e Line 1122  SCM_DEFINE (scm_integer_expt, "integer-e
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

Legend:
Removed from v.1.135.2.11  
changed lines
  Added in v.1.135.2.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26