Mercurial > emacs
changeset 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 | b460399a1458 |
| children | 406c79b8022c |
| files | src/data.c |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/data.c Sat May 08 14:42:41 2004 +0000 +++ b/src/data.c Sat May 08 14:55:36 2004 +0000 @@ -2698,6 +2698,12 @@ int nargs; Lisp_Object *args; { + int argnum; + if (nargs == 2) + return arith_driver (Adiv, nargs, args); + for (argnum = 0; argnum < nargs; argnum++) + if (FLOATP (args[argnum])) + return float_arith_driver (0, 0, Adiv, nargs, args); return arith_driver (Adiv, nargs, args); }