# HG changeset patch
# User Thien-Thi Nguyen <ttn@gnuvola.org>
# Date 1123352705 0
# Node ID 79485c14d194e015e22a42d6a473045f809a4b01
# Parent  5b1a238fcbb4d61ea14e19f44ea755d951c9fcf7
(Fexpt): Use floats for negative exponent.

diff -r 5b1a238fcbb4 -r 79485c14d194 src/floatfns.c
--- a/src/floatfns.c	Sat Aug 06 17:48:15 2005 +0000
+++ b/src/floatfns.c	Sat Aug 06 18:25:05 2005 +0000
@@ -460,7 +460,8 @@
   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 */
+      && INTEGERP (arg2)   /* don't promote, if both are ints, and */
+      && 0 <= XINT (arg2)) /* we are not computing the -ARG2 root */
     {				/* this can be improved by pre-calculating */
       EMACS_INT acc, x, y;	/* some binary powers of x then accumulating */
       Lisp_Object val;