Mercurial > emacs
comparison src/data.c @ 55455:c1c4318a2189
(Fquo): Simplify.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Sun, 09 May 2004 00:49:06 +0000 |
| parents | 1ca30263e9d4 |
| children | c2be5da8c8cb |
comparison
equal
deleted
inserted
replaced
| 55454:3b8721850659 | 55455:c1c4318a2189 |
|---|---|
| 2697 (nargs, args) | 2697 (nargs, args) |
| 2698 int nargs; | 2698 int nargs; |
| 2699 Lisp_Object *args; | 2699 Lisp_Object *args; |
| 2700 { | 2700 { |
| 2701 int argnum; | 2701 int argnum; |
| 2702 if (nargs == 2) | 2702 for (argnum = 2; argnum < nargs; argnum++) |
| 2703 return arith_driver (Adiv, nargs, args); | |
| 2704 for (argnum = 0; argnum < nargs; argnum++) | |
| 2705 if (FLOATP (args[argnum])) | 2703 if (FLOATP (args[argnum])) |
| 2706 return float_arith_driver (0, 0, Adiv, nargs, args); | 2704 return float_arith_driver (0, 0, Adiv, nargs, args); |
| 2707 return arith_driver (Adiv, nargs, args); | 2705 return arith_driver (Adiv, nargs, args); |
| 2708 } | 2706 } |
| 2709 | 2707 |