# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1084028136 0
# Node ID 1ca30263e9d47f2c3d35fe39f9dc27b442818657
# Parent  b460399a145892d193631067e4498b72f8a97a77
(Fquo): If any argument is float, do the computation in floating point.

diff -r b460399a1458 -r 1ca30263e9d4 src/data.c
--- 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);
 }