Mercurial > emacs
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) |