diff options
| author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2005-08-07 00:57:10 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2005-08-07 00:57:10 +0000 |
| commit | 2a205424e771703217ce8c6b4252d810d3310cd2 (patch) | |
| tree | fb58156257132668dcbf0a0f7182f555d08a8f1a /src/floatfns.c | |
| parent | 0d30b33766e277a5bff6eabc9da5afdaebd8b32a (diff) | |
| download | emacs-2a205424e771703217ce8c6b4252d810d3310cd2.tar.gz | |
Munge comment associated w/ last change to describe intent; nfc.
Diffstat (limited to 'src/floatfns.c')
| -rw-r--r-- | src/floatfns.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/floatfns.c b/src/floatfns.c index cbcc0bfe520..0f91b80370a 100644 --- a/src/floatfns.c +++ b/src/floatfns.c @@ -461,7 +461,7 @@ DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0, 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 not computing the -ARG2 root */ + && 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; |