Rework where `comp-ctxt' is defined.

* test/lisp/emacs-lisp/comp-cstr-tests.el (comp-ctxt): Remove
	`comp-ctxt' definition.
	* lisp/emacs-lisp/comp.el (comp-ctxt): Likewise.
	* lisp/emacs-lisp/comp-cstr.el (comp-ctxt): Define it here.
This commit is contained in:
Andrea Corallo 2021-04-26 22:58:08 +02:00
parent 4396ef5a38
commit edf42af2cc
3 changed files with 4 additions and 4 deletions

View file

@ -175,6 +175,10 @@ Return them as multiple value."
collect cstr into positives
finally return (cl-values positives negatives)))
;; So we can load comp-cstr.el and comp.el in non native compiled
;; builds.
(defvar comp-ctxt)
(defvar comp-cstr-one (comp-value-to-cstr 1)
"Represent the integer immediate one.")