mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

fix function top_level_run generation

Browse Source
This commit is contained in:
Andrea Corallo 2019-11-04 22:13:20 +01:00
parent 5c18855234
commit a2ed435e3a
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/emacs-lisp/comp.el
View File

@ -1047,14 +1047,10 @@ the annotation emission."
(make-comp-mvar :constant doc)))))
(cl-defmethod comp-emit-for-top-level ((form byte-to-native-top-level))
(let* ((form (byte-to-native-top-level-form form))
(func-name (car form))
(args (cdr form)))
(if (eq 'unevalled (cdr (subr-arity (symbol-function func-name))))
(comp-emit (comp-call func-name (make-comp-mvar :constant args)))
(comp-emit (apply #'comp-call func-name
(mapcar (lambda (x) (make-comp-mvar :constant x))
args))))))
(let ((form (byte-to-native-top-level-form form)))
(comp-emit (comp-call 'eval
(make-comp-mvar :constant form)
(make-comp-mvar :constant t)))))
(defun comp-limplify-top-level ()
"Create a limple function doing the business for top level forms.