diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 106946b0037..8822c03c103 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -284,7 +284,7 @@ ;; been preprocessed! `(function ,fn) (byte-compile-preprocess - (byte-compile--refiy-function fn))))) + (byte-compile--reify-function fn))))) (if (eq (car-safe newfn) 'function) (byte-compile-unfold-lambda `(,(cadr newfn) ,@(cdr form))) (byte-compile-log-warning diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index af7bc81fef0..71b61ec74cc 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -2367,7 +2367,7 @@ not to take responsibility for the actual compilation of the code." ;;(byte-compile-set-symbol-position name) (byte-compile-warn "probable `\"' without `\\' in doc string of %s" name)) - + (if (not (listp body)) ;; The precise definition requires evaluation to find out, so it ;; will only be known at runtime. @@ -2451,7 +2451,7 @@ If QUOTED is non-nil, print with quoting; otherwise, print without quoting." (- (position-bytes (point)) (point-min) -1) (goto-char (point-max)))))) -(defun byte-compile--refiy-function (fun) +(defun byte-compile--reify-function (fun) "Return an expression which will evaluate to a function value FUN. FUN should be either a `lambda' value or a `closure' value." (pcase-let* (((or (and `(lambda ,args . ,body) (let env nil)) @@ -2488,7 +2488,7 @@ If FORM is a lambda or a macro, byte-compile it as a function." (when (symbolp form) (unless (memq (car-safe fun) '(closure lambda)) (error "Don't know how to compile %S" fun)) - (setq fun (byte-compile--refiy-function fun)) + (setq fun (byte-compile--reify-function fun)) (setq lexical-binding (eq (car fun) 'closure))) (unless (eq (car-safe fun) 'lambda) (error "Don't know how to compile %S" fun)) |