"D Goel" <[EMAIL PROTECTED]> writes:
> i think that both should return the proper values instead of
> truncated integers
i agree. how does the following patch look?
thi
___________________________________
*** floatfns.c 4 Jul 2005 16:06:31 -0000 1.84
--- floatfns.c 6 Aug 2005 14:07:36 -0000
***************
*** 460,466 ****
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;
--- 460,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, */
! && 0 <= XINT (arg2)) /* or if we are taking the ARG2'th root */
{ /* this can be improved by pre-calculating */
EMACS_INT acc, x, y; /* some binary powers of x then accumulating */
Lisp_Object val;
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
