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

diff --git a/src/ChangeLog b/src/ChangeLog
index 9ff58e7f5a8c89ec03dbc356979cce00f234ee58..aa73da64547c5f63eb287d91a5e72fc0e407200d 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,7 +1,7 @@
 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>
 

diff --git a/src/floatfns.c b/src/floatfns.c
index cbcc0bfe5200256215ac6f69209df5476aafca6f..0f91b80370aed31d481c4d77fcdafec5f72bb430 100644 (file)
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -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;