Commit 2a205424 authored by Thien-Thi Nguyen's avatar Thien-Thi Nguyen
Browse files

Munge comment associated w/ last change to describe intent; nfc.

parent 0d30b337
2005-08-06 Thien-Thi Nguyen <ttn@gnu.org>
 
* floatfns.c (Fexpt): Use floats for negative
exponent (computing a root). Reported by D Goel.
* floatfns.c (Fexpt): Use floats for negative exponent.
Reported by D Goel.
 
2005-08-02 Richard M. Stallman <rms@gnu.org>
 
......
......@@ -461,7 +461,7 @@ DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0,
CHECK_NUMBER_OR_FLOAT (arg2);
if (INTEGERP (arg1) /* common lisp spec */
&& INTEGERP (arg2) /* don't promote, if both are ints, and */
&& 0 <= XINT (arg2)) /* we are not computing the -ARG2 root */
&& 0 <= XINT (arg2)) /* we are sure the result is not fractional */
{ /* this can be improved by pre-calculating */
EMACS_INT acc, x, y; /* some binary powers of x then accumulating */
Lisp_Object val;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment