diff options
| author | Andrea Corallo <acorallo@gnu.org> | 2024-05-05 23:39:01 +0200 |
|---|---|---|
| committer | Andrea Corallo <acorallo@gnu.org> | 2024-05-05 23:58:31 +0200 |
| commit | f920959ac98afa8f8eb142abe94bec276fa7a2b7 (patch) | |
| tree | c7031a0438958adf15d50734fb40288070756154 /lisp/emacs-lisp/comp.el | |
| parent | 77f87d4b489fcb332fc3d8d3d4a8080e7e1818fd (diff) | |
| download | emacs-f920959ac98afa8f8eb142abe94bec276fa7a2b7.tar.gz emacs-f920959ac98afa8f8eb142abe94bec276fa7a2b7.tar.bz2 emacs-f920959ac98afa8f8eb142abe94bec276fa7a2b7.zip | |
Remove unnecessary cons in function-type property
* lisp/emacs-lisp/comp-common.el (comp-function-type-spec): Remove
unnecessary car.
* lisp/emacs-lisp/comp.el (comp--intern-func-in-ctxt): Likewise.
* lisp/emacs-lisp/byte-run.el (byte-run--set-function-type): Update
lambda list.
Diffstat (limited to 'lisp/emacs-lisp/comp.el')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index b1e4b77ae40..e69de84362e 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -825,7 +825,7 @@ clashes." (comp-func-lap func) lap (comp-func-frame-size func) (comp--byte-frame-size byte-func) (comp-func-speed func) (comp--spill-speed name) - (comp-func-declared-type func) (car (comp--spill-decl-spec name 'function-type)) + (comp-func-declared-type func) (comp--spill-decl-spec name 'function-type) (comp-func-pure func) (comp--spill-decl-spec name 'pure)) ;; Store the c-name to have it retrievable from |