From: Juanma Barranquero <lekktu@gmail.com>
Date: Sun, 9 May 2004 00:49:06 +0000 (+0000)
Subject: (Fquo): Simplify.
X-Git-Tag: ttn-vms-21-2-B4~6342
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7ef980534901045d60839f814a32c2f3d6d6a3bb;p=emacs.git

(Fquo): Simplify.
---

diff --git a/src/data.c b/src/data.c
index 1a66e52632a..992aac66476 100644
--- a/src/data.c
+++ b/src/data.c
@@ -2699,9 +2699,7 @@ usage: (/ DIVIDEND DIVISOR &rest DIVISORS)  */)
      Lisp_Object *args;
 {
   int argnum;
-  if (nargs == 2)
-    return arith_driver (Adiv, nargs, args);
-  for (argnum = 0; argnum < nargs; argnum++)
+  for (argnum = 2; argnum < nargs; argnum++)
     if (FLOATP (args[argnum]))
       return float_arith_driver (0, 0, Adiv, nargs, args);
   return arith_driver (Adiv, nargs, args);