diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2023-05-04 17:31:15 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2023-05-05 22:00:27 +0200 |
| commit | 3b038d46e24532bc4bca56f37d30afd70fae388d (patch) | |
| tree | c942a2994316e4758fb92647c545e21958489b2f /lisp/emacs-lisp/byte-opt.el | |
| parent | 1438574dd73a097293f8cfe356c3459cec6ee005 (diff) | |
| download | emacs-3b038d46e24532bc4bca56f37d30afd70fae388d.tar.gz emacs-3b038d46e24532bc4bca56f37d30afd70fae388d.tar.bz2 emacs-3b038d46e24532bc4bca56f37d30afd70fae388d.zip | |
Remove useless handling of erroneous code in Lisp optimiser
* lisp/emacs-lisp/byte-opt.el (byte-optimize-form-code-walker):
((closure ...) ...) is a malformed function call; treat it as such.
Better malformed function warning location.
Diffstat (limited to 'lisp/emacs-lisp/byte-opt.el')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index d859706c180..d046c4d401c 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -469,10 +469,6 @@ for speeding up processing.") form (byte-optimize-form newform for-effect)))) - ;; FIXME: Strictly speaking, I think this is a bug: (closure...) - ;; is a *value* and shouldn't appear in the car. - (`((closure . ,_) . ,_) form) - (`(setq ,var ,expr) (let ((lexvar (assq var byte-optimize--lexvars)) (value (byte-optimize-form expr nil))) @@ -500,7 +496,7 @@ for speeding up processing.") (cons fn (mapcar #'byte-optimize-form exps))) (`(,(pred (not symbolp)) . ,_) - (byte-compile-warn-x fn "`%s' is a malformed function" fn) + (byte-compile-warn-x form "`%s' is a malformed function" fn) form) ((guard (when for-effect |