aboutsummaryrefslogtreecommitdiffstats
path: root/test/src
diff options
context:
space:
mode:
authorAndrea Corallo2020-11-01 14:41:17 +0100
committerAndrea Corallo2020-11-01 15:17:00 +0100
commit933fd76f8fa4583aa3c4cc6e6e22f9a96638c5a5 (patch)
treef851e0a73d8c0fb28e408b12c0ff7fb8dfff7fc8 /test/src
parente1a168f9a73cfb5a70d3f313e62dd1eaab14e214 (diff)
downloademacs-933fd76f8fa4583aa3c4cc6e6e22f9a96638c5a5.tar.gz
emacs-933fd76f8fa4583aa3c4cc6e6e22f9a96638c5a5.zip
* test/src/comp-tests.el (compile-forms): Fix missing lexical binding.
Diffstat (limited to 'test/src')
-rw-r--r--test/src/comp-tests.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 9c3c7f62a30..21c8abad038 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -418,7 +418,8 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html."
418(comp-deftest compile-forms () 418(comp-deftest compile-forms ()
419 "Verify lambda form native compilation." 419 "Verify lambda form native compilation."
420 (should-error (native-compile '(+ 1 foo))) 420 (should-error (native-compile '(+ 1 foo)))
421 (let ((f (native-compile '(lambda (x) (1+ x))))) 421 (let ((lexical-binding t)
422 (f (native-compile '(lambda (x) (1+ x)))))
422 (should (subr-native-elisp-p f)) 423 (should (subr-native-elisp-p f))
423 (should (= (funcall f 2) 3))) 424 (should (= (funcall f 2) 3)))
424 (let* ((lexical-binding nil) 425 (let* ((lexical-binding nil)