diff options
| author | Richard M. Stallman | 2005-08-07 17:47:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-08-07 17:47:48 +0000 |
| commit | 8b6a95513d11162055cf1cdf7eb9a4a2ade5f1c3 (patch) | |
| tree | 473c93ec1d9731672c81cb7bd3e848f3f8d17e58 /src/floatfns.c | |
| parent | 44edd521a0d425ea79433bf170233a2b0084820b (diff) | |
| download | emacs-8b6a95513d11162055cf1cdf7eb9a4a2ade5f1c3.tar.gz emacs-8b6a95513d11162055cf1cdf7eb9a4a2ade5f1c3.zip | |
(Fexpt): Undo previous change.
Diffstat (limited to 'src/floatfns.c')
| -rw-r--r-- | src/floatfns.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/floatfns.c b/src/floatfns.c index 79574e0a69b..57bece2708b 100644 --- a/src/floatfns.c +++ b/src/floatfns.c | |||
| @@ -461,8 +461,7 @@ DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0, | |||
| 461 | CHECK_NUMBER_OR_FLOAT (arg1); | 461 | CHECK_NUMBER_OR_FLOAT (arg1); |
| 462 | CHECK_NUMBER_OR_FLOAT (arg2); | 462 | CHECK_NUMBER_OR_FLOAT (arg2); |
| 463 | if (INTEGERP (arg1) /* common lisp spec */ | 463 | if (INTEGERP (arg1) /* common lisp spec */ |
| 464 | && INTEGERP (arg2) /* don't promote, if both are ints, and */ | 464 | && INTEGERP (arg2)) /* don't promote, if both are ints */ |
| 465 | && 0 <= XINT (arg2)) /* we are sure the result is not fractional */ | ||
| 466 | { /* this can be improved by pre-calculating */ | 465 | { /* this can be improved by pre-calculating */ |
| 467 | EMACS_INT acc, x, y; /* some binary powers of x then accumulating */ | 466 | EMACS_INT acc, x, y; /* some binary powers of x then accumulating */ |
| 468 | Lisp_Object val; | 467 | Lisp_Object val; |