Mercurial > emacs

diff src/floatfns.c @ 64778:6de0f61d4874

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fexpt): Undo previous change.
author Richard M. Stallman <rms@gnu.org>
date Sun, 07 Aug 2005 17:47:33 +0000
parents a0d1312ede66
children 3529fe766935
line wrap: on
line diff
--- a/src/floatfns.c	Sun Aug 07 17:42:38 2005 +0000
+++ b/src/floatfns.c	Sun Aug 07 17:47:33 2005 +0000
@@ -461,8 +461,7 @@
   CHECK_NUMBER_OR_FLOAT (arg1);
   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 sure the result is not fractional */
+      && INTEGERP (arg2))   /* don't promote, if both are ints */
     {				/* this can be improved by pre-calculating */
       EMACS_INT acc, x, y;	/* some binary powers of x then accumulating */
       Lisp_Object val;