Mercurial > emacs
changeset 3138:80ce80f189f7
(byte-optimize-divide): Don't optimize to less than two arguments.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 26 May 1993 21:31:36 +0000 |
| parents | 1e7d462c176f |
| children | 198e8fd690de |
| files | lisp/emacs-lisp/byte-opt.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-opt.el Wed May 26 21:17:31 1993 +0000 +++ b/lisp/emacs-lisp/byte-opt.el Wed May 26 21:31:36 1993 +0000 @@ -663,7 +663,10 @@ (setq form (byte-optimize-delay-constants-math form 2 '*)) (let ((last (car (reverse (cdr (cdr form)))))) (if (numberp last) - (cond ((= last 1) + (cond ((= (length form) 3) + ;; Don't shrink to less than two arguments--would get an error. + nil) + ((= last 1) (setq form (byte-compile-butlast form))) ((numberp (nth 1 form)) (setq form (cons (car form)