[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/android d197d734912 1/3: Merge remote-tracking branch 'origin/ma
From: |
Po Lu |
Subject: |
feature/android d197d734912 1/3: Merge remote-tracking branch 'origin/master' into feature/android |
Date: |
Tue, 21 Feb 2023 06:09:09 -0500 (EST) |
branch: feature/android
commit d197d7349121b972d50e37d66017567bf6cba652
Merge: fce2e2f264f 43a6b3f5231
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
Merge remote-tracking branch 'origin/master' into feature/android
---
lisp/emacs-lisp/cconv.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el
index 940a1045625..ad9d8ab0a51 100644
--- a/lisp/emacs-lisp/cconv.el
+++ b/lisp/emacs-lisp/cconv.el
@@ -463,7 +463,7 @@ places where they originally did not directly appear."
; first element is lambda expression
(`(,(and `(lambda . ,_) fun) . ,args)
;; FIXME: it's silly to create a closure just to call it.
- ;; Running byte-optimize-form earlier will resolve this.
+ ;; Running byte-optimize-form earlier would resolve this.
`(funcall
,(cconv-convert `(function ,fun) env extend)
,@(mapcar (lambda (form)
@@ -878,14 +878,14 @@ lexically and dynamically bound symbols actually used by
FORM."
(cons fvs dyns)))))
(defun cconv-make-interpreted-closure (fun env)
- ;; FIXME: I don't know what "This function is evaluated both at
- ;; compile time and run time" is intended to mean here.
"Make a closure for the interpreter.
-This function is evaluated both at compile time and run time.
-FUN, the closure's function, must be a lambda form.
-ENV, the closure's environment, is a mixture of lexical bindings of the form
-\(SYMBOL . VALUE) and symbols which indicate dynamic bindings of those
-symbols."
+This is intended to be called at runtime by the ELisp interpreter (when
+the code has not been compiled).
+FUN is the closure's source code, must be a lambda form.
+ENV is the runtime representation of the lexical environment,
+i.e. a list whose elements can be either plain symbols (which indicate
+that this symbol should use dynamic scoping) or pairs (SYMBOL . VALUE)
+for the lexical bindings."
(cl-assert (eq (car-safe fun) 'lambda))
(let ((lexvars (delq nil (mapcar #'car-safe env))))
(if (or (null lexvars)