master b29be11a6f: Closures are always non-nil

[Mattias Engdegård]

branch: master
commit b29be11a6f387c92508beafcbc8f58799a3e3e06
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    Closures are always non-nil
    
    * lisp/emacs-lisp/byte-opt.el (byte-compile-trueconstp):
    Treat closures as true in boolean context.
---
 lisp/emacs-lisp/byte-opt.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index a7e1df3622..55b68c5843 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -755,7 +755,8 @@ for speeding up processing.")
                  ((eq head 'list) (cdr form))
                  ((memq head
                         ;; FIXME: Replace this list with a function property?
-                        '( length safe-length cons lambda
+                        '( lambda internal-make-closure
+                           length safe-length cons
                            string unibyte-string make-string concat
                            format format-message
                            substring substring-no-properties string-replace