From 7ef980534901045d60839f814a32c2f3d6d6a3bb Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sun, 9 May 2004 00:49:06 +0000 Subject: [PATCH] (Fquo): Simplify. --- src/data.c | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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); -- 2.39.2