From 4f0e87903095da1225830e27ef27e61ba9ff08af Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Mon, 12 Oct 2020 22:34:57 +0200 Subject: Rework `native-compile' interface so it can return compiled functions * lisp/emacs-lisp/comp.el (native-compile): Return the compiled function when the input is a symbol or a form. * test/src/comp-tests.el (free-fun, tco, fw-prop): Update tests for new `native-compile' interface. --- test/src/comp-tests.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'test/src/comp-tests.el') diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index 317a6113af2..79bac3f711f 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el @@ -359,7 +359,7 @@ Check that the resulting binaries do not differ." (interactive) 3) t) - (load (native-compile #'comp-tests-free-fun-f)) + (native-compile #'comp-tests-free-fun-f) (should (subr-native-elisp-p (symbol-function #'comp-tests-free-fun-f))) (should (= (comp-tests-free-fun-f) 3)) @@ -692,7 +692,7 @@ CHECKER should always return nil to have a pass." b (comp-tests-tco-f (+ a b) a (- count 1)))) t) - (load (native-compile #'comp-tests-tco-f)) + (native-compile #'comp-tests-tco-f) (should (subr-native-elisp-p (symbol-function #'comp-tests-tco-f))) (should (= (comp-tests-tco-f 1 0 10) 55)))) @@ -714,7 +714,7 @@ CHECKER should always return nil to have a pass." (c (concat a b))) ; <= has to optimize (length c))) ; <= has to optimize t) - (load (native-compile #'comp-tests-fw-prop-1-f)) + (native-compile #'comp-tests-fw-prop-1-f) (should (subr-native-elisp-p (symbol-function #'comp-tests-fw-prop-1-f))) (should (= (comp-tests-fw-prop-1-f) 6)))) -- cgit v1.2.1