From: Thien-Thi Nguyen Date: Sun, 7 Aug 2005 00:57:10 +0000 (+0000) Subject: Munge comment associated w/ last change to describe intent; nfc. X-Git-Tag: emacs-pretest-22.0.90~7768 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2a205424e771703217ce8c6b4252d810d3310cd2;p=emacs.git Munge comment associated w/ last change to describe intent; nfc. --- diff --git a/src/ChangeLog b/src/ChangeLog index 9ff58e7f5a8..aa73da64547 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,7 +1,7 @@ 2005-08-06 Thien-Thi Nguyen - * 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 diff --git a/src/floatfns.c b/src/floatfns.c index cbcc0bfe520..0f91b80370a 100644 --- 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;