diff options
author | Juanma Barranquero <[email protected]> | 2004-05-08 15:00:20 +0000 |
---|---|---|
committer | Juanma Barranquero <[email protected]> | 2004-05-08 15:00:20 +0000 |
commit | 28712a21247d1a503e7620e47c128c0fc33b3bb3 (patch) | |
tree | 8cc6e32cb998a4cc9020c38fd9bafa3b68bd9150 /src | |
parent | c2bcfb19fbc92c81876abb290f764758c59feca9 (diff) |
(Fquo): If any argument is float, do the computation in floating point.
Diffstat (limited to 'src')
-rw-r--r-- | src/ChangeLog | 5 | ||||
-rw-r--r-- | src/data.c | 6 |
2 files changed, 11 insertions, 0 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 673ebc5a1e..54e9908ece 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2004-05-08 Peter Whaite <[email protected]> (tiny change) + + * data.c (Fquo): If any argument is float, do the computation in + floating point. + 2004-05-08 Juanma Barranquero <[email protected]> * editfns.c (Finsert_buffer_substring): Make argument names match their diff --git a/src/data.c b/src/data.c index 6ce9a5d37a..1a66e52632 100644 --- a/src/data.c +++ b/src/data.c @@ -2698,6 +2698,12 @@ usage: (/ DIVIDEND DIVISOR &rest DIVISORS) */) 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); } |