diff options
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 5441083a8b2..5594b918b37 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el | |||
| @@ -1151,6 +1151,10 @@ | |||
| 1151 | ;;; state, so that constant folding them would be wrong, | 1151 | ;;; state, so that constant folding them would be wrong, |
| 1152 | ;;; but we don't do constant folding based on this list. | 1152 | ;;; but we don't do constant folding based on this list. |
| 1153 | 1153 | ||
| 1154 | ;;; However, at present the only optimization we normally do | ||
| 1155 | ;;; is delete calls that need not occur, and we only do that | ||
| 1156 | ;;; with the error-free functions. | ||
| 1157 | |||
| 1154 | ;;; I wonder if I missed any :-\) | 1158 | ;;; I wonder if I missed any :-\) |
| 1155 | (let ((side-effect-free-fns | 1159 | (let ((side-effect-free-fns |
| 1156 | '(% * + - / /= 1+ 1- < <= = > >= abs acos append aref ash asin atan | 1160 | '(% * + - / /= 1+ 1- < <= = > >= abs acos append aref ash asin atan |