comparison src/floatfns.c @ 3591:507f64624555

Apply typo patches from Paul Eggert.
author Jim Blandy <jimb@redhat.com>
date Wed, 09 Jun 1993 11:59:12 +0000
parents 1950b2238ecc
children 8ab0a7453577
comparison
equal deleted inserted replaced
3590:d5f22061277d 3591:507f64624555
403 CHECK_NUMBER_OR_FLOAT (arg1, 0); 403 CHECK_NUMBER_OR_FLOAT (arg1, 0);
404 CHECK_NUMBER_OR_FLOAT (arg2, 0); 404 CHECK_NUMBER_OR_FLOAT (arg2, 0);
405 if ((XTYPE (arg1) == Lisp_Int) && /* common lisp spec */ 405 if ((XTYPE (arg1) == Lisp_Int) && /* common lisp spec */
406 (XTYPE (arg2) == Lisp_Int)) /* don't promote, if both are ints */ 406 (XTYPE (arg2) == Lisp_Int)) /* don't promote, if both are ints */
407 { /* this can be improved by pre-calculating */ 407 { /* this can be improved by pre-calculating */
408 int acc, x, y; /* some binary powers of x then acumulating */ 408 int acc, x, y; /* some binary powers of x then accumulating */
409 /* these, therby saving some time. -wsr */ 409 /* these, thereby saving some time. -wsr */
410 x = XINT (arg1); 410 x = XINT (arg1);
411 y = XINT (arg2); 411 y = XINT (arg2);
412 acc = 1; 412 acc = 1;
413 413
414 if (y < 0) 414 if (y < 0)