diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-03-24 22:13:44 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-03-24 22:13:44 -0400 |
| commit | 83a6e80d66a4c6333e2bbb21d0428c432ddca881 (patch) | |
| tree | 226e881d2ed80056a0c89d4b941dcabaac61aded | |
| parent | c5de73a95a6ecefe46fe1ac07da8e83032be7f5b (diff) | |
| download | emacs-83a6e80d66a4c6333e2bbb21d0428c432ddca881.tar.gz | |
(byte-optimize-form-code-walker): Simplify a bit
Eliminate a case that matches very rarely and where the default
handling works just as well anyway.
* lisp/emacs-lisp/byte-opt.el (byte-optimize-form-code-walker): Remove
redundant case.
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index f6df40a2d9b..54997205edb 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -482,9 +482,6 @@ There can be multiple entries for the same NAME if it has several aliases.") (push name byte-optimize--dynamic-vars) `(,fn ,name . ,optimized-rest))) - (`(,(pred byte-code-function-p) . ,exps) - (cons fn (mapcar #'byte-optimize-form exps))) - ((guard (when for-effect (if-let ((tmp (byte-opt--fget fn 'side-effect-free))) (or byte-compile-delete-errors |