# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1123436853 0
# Node ID 6de0f61d48742a955d7c8878d24513335445e204
# Parent  c54934ba2f4b79b949e3e2e9955dd46bf983669b
(Fexpt): Undo previous change.

diff -r c54934ba2f4b -r 6de0f61d4874 src/floatfns.c
--- 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;