Mercurial > emacs
changeset 64778:6de0f61d4874
(Fexpt): Undo previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 07 Aug 2005 17:47:33 +0000 |
| parents | c54934ba2f4b |
| children | 23d3337ef511 |
| files | src/floatfns.c |
| diffstat | 1 files changed, 1 insertions(+), 2 deletions(-) [+] |
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;