Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |