procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(byte-optimize-divide): Don't optimize to less than two arguments.

Browse source
This commit is contained in:
Richard M. Stallman 1993-05-26 21:31:36 +00:00
parent a22f4c7d34
commit 199dd758a3
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/byte-opt.el
View file

@ -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)