mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

(Fexpt): Use floats for negative exponent.

Browse Source
This commit is contained in:
Thien-Thi Nguyen 2005-08-09 07:37:25 +00:00
parent 48b194fdd2
commit 5a9807a8bd
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ChangeLog
View File

@ -1,3 +1,7 @@
2005-08-09 Thien-Thi Nguyen <ttn@gnu.org>
* floatfns.c (Fexpt): Use floats for negative exponent.
2005-08-08 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* gtkutil.c (xg_modify_menubar_widgets): Remove semicolon that

3
src/floatfns.c
View File

@ -461,7 +461,8 @@ DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0,
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 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;