Index: emacs/src/floatfns.c
diff -c emacs/src/floatfns.c:1.87 emacs/src/floatfns.c:1.88
*** emacs/src/floatfns.c:1.87 Sun Aug 7 12:33:16 2005
--- emacs/src/floatfns.c Sun Aug 7 17:47:33 2005
***************
*** 461,468 ****
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 */
{ /* this can be improved by pre-calculating */
EMACS_INT acc, x, y; /* some binary powers of x then accumulating */
Lisp_Object val;
--- 461,467 ----
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 */
{ /* this can be improved by pre-calculating */
EMACS_INT acc, x, y; /* some binary powers of x then accumulating */
Lisp_Object val;
_______________________________________________
Emacs-diffs mailing list
Emacs-diffs@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-diffs
