diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index d4789564f5f..2443d967658 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -220,7 +220,7 @@ (error "file \"%s\" didn't define \"%s\"" (nth 1 fn) name)) (if (symbolp fn) (byte-compile-inline-expand (cons fn (cdr form))) - (if (compiled-function-p fn) + (if (byte-code-function-p fn) (cons (list 'lambda (aref fn 0) (list 'byte-code (aref fn 1) (aref fn 2) (aref fn 3))) (cdr form)) @@ -233,7 +233,7 @@ (or name (setq name "anonymous lambda")) (let ((lambda (car form)) (values (cdr form))) - (if (compiled-function-p lambda) + (if (byte-code-function-p lambda) (setq lambda (list 'lambda (aref lambda 0) (list 'byte-code (aref lambda 1) (aref lambda 2) (aref lambda 3))))) @@ -316,7 +316,7 @@ (and (nth 1 form) (not for-effect) form)) - ((or (compiled-function-p fn) + ((or (byte-code-function-p fn) (eq 'lambda (car-safe fn))) (byte-compile-unfold-lambda form)) ((memq fn '(let let*)) @@ -1721,7 +1721,7 @@ may generate incorrect code.") ;; itself, compile some of its most used recursive functions (at load time). ;; (eval-when-compile - (or (compiled-function-p (symbol-function 'byte-optimize-form)) + (or (byte-code-function-p (symbol-function 'byte-optimize-form)) (assq 'byte-code (symbol-function 'byte-optimize-form)) (let ((byte-optimize nil) (byte-compile-warnings nil)) |