diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2004-05-09 00:49:06 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2004-05-09 00:49:06 +0000 |
| commit | 7ef980534901045d60839f814a32c2f3d6d6a3bb (patch) | |
| tree | 35ecf96faec53303ee24a04346362ba0e9289501 /src | |
| parent | fef3a3ab7c63a3e9d399b90e75dbd28b129e16f0 (diff) | |
| download | emacs-7ef980534901045d60839f814a32c2f3d6d6a3bb.tar.gz | |
(Fquo): Simplify.
Diffstat (limited to 'src')
| -rw-r--r-- | src/data.c | 4 |
1 files changed, 1 insertions, 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); |