From 85450f03be6cbb3e09964ce62e1f63875f0848a3 Mon Sep 17 00:00:00 2001 From: Andrew Whatson Date: Sat, 10 Oct 2020 10:13:26 +0200 Subject: [PATCH] * Fix typo name plus make error homogeneous in `comp-trampoline-compile' * lisp/emacs-lisp/comp.el (comp-trampoline-compile): Fix typo renaming `comp-tampoline-compile' -> `comp-trampoline-compile'. Change error to be consistent. (comp-subr-trampoline-install): Use `comp-trampoline-compile'. --- lisp/emacs-lisp/comp.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 763d44a23e1..0445fc085e1 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -2580,7 +2580,7 @@ Return the its filename if found or nil otherwise." when (file-exists-p filename) do (cl-return filename))) -(defun comp-tampoline-compile (subr-name) +(defun comp-trampoline-compile (subr-name) "Synthesize and compile a trampoline for SUBR-NAME and return its filename." (let ((trampoline-sym (comp-trampoline-sym subr-name)) (lambda-list (comp-make-lambda-list-from-subr @@ -2610,7 +2610,7 @@ Return the its filename if found or nil otherwise." comp-native-version-dir)) when (file-writable-p f) do (cl-return f) - finally (error "Can't find a writable directory in \ + finally (error "Cannot find suitable directory for output in \ `comp-eln-load-path'"))))) ;;;###autoload @@ -2621,7 +2621,7 @@ Return the its filename if found or nil otherwise." (let ((trampoline-sym (comp-trampoline-sym subr-name))) (cl-assert (subr-primitive-p (symbol-function subr-name))) (load (or (comp-search-trampoline subr-name) - (comp-tampoline-compile subr-name)) + (comp-trampoline-compile subr-name)) nil t) (cl-assert (subr-native-elisp-p (symbol-function trampoline-sym))) -- 2.39.5