/[guile]/guile/guile-core/ice-9/boot-9.scm
ViewVC logotype

Diff of /guile/guile-core/ice-9/boot-9.scm

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

revision 1.266.2.9 by ttn, Tue Feb 26 11:00:10 2002 UTC revision 1.266.2.10 by rlb, Thu May 16 16:48:32 2002 UTC
# Line 694  Line 694 
694    (let ((integer-expt integer-expt))    (let ((integer-expt integer-expt))
695      (lambda (z1 z2)      (lambda (z1 z2)
696        (cond ((integer? z2)        (cond ((integer? z2)
697               (if (>= z2 0)               (if (negative? z2)
698                   (integer-expt z1 z2)                   (/ 1 (integer-expt z1 (- z2)))
699                   (/ 1 (integer-expt z1 (- z2)))))                   (integer-expt z1 z2)))
700              ((and (real? z2) (real? z1) (>= z1 0))              ((and (real? z2) (real? z1) (>= z1 0))
701               ($expt z1 z2))               ($expt z1 z2))
702              (else              (else

Legend:
Removed from v.1.266.2.9  
changed lines
  Added in v.1.266.2.10

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