[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 88ccee4 2/4: * Fix comp-call-optim-form-call for nul
From: |
Andrea Corallo |
Subject: |
feature/native-comp 88ccee4 2/4: * Fix comp-call-optim-form-call for null `callee' |
Date: |
Sun, 7 Jun 2020 15:06:39 -0400 (EDT) |
branch: feature/native-comp
commit 88ccee4083f9059603c8bf9b989848c41902d8b0
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* Fix comp-call-optim-form-call for null `callee'
* lisp/emacs-lisp/comp.el (comp-call-optim-form-call): Guard
agains null `calle'.
---
lisp/emacs-lisp/comp.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index ecd4115..520ec8c 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2023,7 +2023,8 @@ FUNCTION can be a function-name or byte compiled
function."
;; Fill missing args to reach TOTAL
(append args (cl-loop repeat (- total (length args))
collect (make-comp-mvar :constant nil)))))
- (when (and (or (symbolp callee)
+ (when (and callee
+ (or (symbolp callee)
(gethash callee (comp-ctxt-byte-func-to-func-h comp-ctxt)))
(not (memq callee comp-never-optimize-functions)))
(let* ((f (if (symbolp callee)