scratch/interpreted-function 68c12c9d303: -

[Stefan Monnier]

branch: scratch/interpreted-function
commit 68c12c9d303c80723a92be746f0f239b48e3a11e
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    -
---
 lisp/emacs-lisp/oclosure.el | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/lisp/emacs-lisp/oclosure.el b/lisp/emacs-lisp/oclosure.el
index 8e5081e5e2b..7d88e62a942 100644
--- a/lisp/emacs-lisp/oclosure.el
+++ b/lisp/emacs-lisp/oclosure.el
@@ -431,12 +431,9 @@ ARGS and BODY are the same as for `lambda'."
 
 (defun oclosure--fix-type (_ignore oclosure)
   "Helper function to implement `oclosure-lambda' via a macro.
-This has 2 uses:
-- For interpreted code, this converts the representation of type information
-  by moving it from the docstring to the environment.
-- For compiled code, this is used as a marker which cconv uses to check that
-  immutable fields are indeed not mutated."
-  (cl-assert (byte-code-function-p oclosure))
+This is used as a marker which cconv uses to check that
+immutable fields are indeed not mutated."
+  (cl-assert (function-object-p oclosure))
   ;; This should happen only for interpreted closures since the `cconv.el'
   ;; should have optimized away the call to this function.
   oclosure)