Mercurial > emacs
comparison src/data.c @ 55440:1ca30263e9d4
(Fquo): If any argument is float, do the computation in floating point.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Sat, 08 May 2004 14:55:36 +0000 |
| parents | f406ef28e71a |
| children | c1c4318a2189 |
comparison
equal
deleted
inserted
replaced
| 55439:b460399a1458 | 55440:1ca30263e9d4 |
|---|---|
| 2696 usage: (/ DIVIDEND DIVISOR &rest DIVISORS) */) | 2696 usage: (/ DIVIDEND DIVISOR &rest DIVISORS) */) |
| 2697 (nargs, args) | 2697 (nargs, args) |
| 2698 int nargs; | 2698 int nargs; |
| 2699 Lisp_Object *args; | 2699 Lisp_Object *args; |
| 2700 { | 2700 { |
| 2701 int argnum; | |
| 2702 if (nargs == 2) | |
| 2703 return arith_driver (Adiv, nargs, args); | |
| 2704 for (argnum = 0; argnum < nargs; argnum++) | |
| 2705 if (FLOATP (args[argnum])) | |
| 2706 return float_arith_driver (0, 0, Adiv, nargs, args); | |
| 2701 return arith_driver (Adiv, nargs, args); | 2707 return arith_driver (Adiv, nargs, args); |
| 2702 } | 2708 } |
| 2703 | 2709 |
| 2704 DEFUN ("%", Frem, Srem, 2, 2, 0, | 2710 DEFUN ("%", Frem, Srem, 2, 2, 0, |
| 2705 doc: /* Return remainder of X divided by Y. | 2711 doc: /* Return remainder of X divided by Y. |