From 233c0af31e2c018043bd9abfa5acbeafbb535a94 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 27 Apr 2021 18:54:37 +0200 Subject: [PATCH] ; Fix typos --- src/comp.c | 6 +++--- test/src/comp-tests.el | 8 ++++---- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/src/comp.c b/src/comp.c index 5309be46dec..c2da5b2ebf5 100644 --- a/src/comp.c +++ b/src/comp.c @@ -1,4 +1,4 @@ -/* Compile elisp into native code. +/* Compile Emacs Lisp into native code. Copyright (C) 2019-2021 Free Software Foundation, Inc. Author: Andrea Corallo @@ -4716,7 +4716,7 @@ maybe_defer_native_compilation (Lisp_Object function_name, return; } - /* This is to have deferred compilaiton able to compile comp + /* This is to have deferred compilation able to compile comp dependencies breaking circularity. */ if (!NILP (Ffeaturep (Qcomp, Qnil))) { @@ -4949,7 +4949,7 @@ load_comp_unit (struct Lisp_Native_Comp_Unit *comp_u, bool loading_dump, /* In case another load of the same CU is active on the stack all ephemeral data is hold by that frame. Re-writing 'data_ephemeral_vec' would be not only a waste of cycles but - more importanly would lead to crashed if the contained data + more importantly would lead to crashed if the contained data is not cons hashed. */ if (!recursive_load) { diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index a1893fde5c0..ba8b8b00936 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el @@ -293,7 +293,7 @@ Check that the resulting binaries do not differ." (comp-tests-throw-f 3))))) (comp-deftest gc () - "Try to do some longer computation to let the gc kick in." + "Try to do some longer computation to let the GC kick in." (dotimes (_ 100000) (comp-tests-cons-cdr-f 3)) (should (= (comp-tests-cons-cdr-f 3) 3))) @@ -317,7 +317,7 @@ Check that the resulting binaries do not differ." (should (string= (comp-tests-string-trim-f "dsaf ") "dsaf"))) (comp-deftest trampoline-removal () - ;; This tests that we can can call primitives with no dedicated bytecode. + ;; This tests that we can call primitives with no dedicated bytecode. ;; At speed >= 2 the trampoline will not be used. (should (hash-table-p (comp-tests-trampoline-removal-f)))) @@ -399,7 +399,7 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html." (should (string= " ➊" (comp-test-45342-f 1)))) (comp-deftest assume-double-neg () - "In fwprop assumtions (not (not (member x))) /= (member x)." + "In fwprop assumptions (not (not (member x))) /= (member x)." (should-not (comp-test-assume-double-neg-f "bar" "foo"))) (comp-deftest assume-in-loop-1 () @@ -416,7 +416,7 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html." (defvar comp-test-primitive-advice) (comp-deftest primitive-advice () - "Test effectiveness of primitive advicing." + "Test effectiveness of primitive advising." (let (comp-test-primitive-advice (f (lambda (&rest args) (setq comp-test-primitive-advice args)))) -- 2.39.5