[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 85450f0 1/2: * Fix typo name plus make error homogen
From: |
Andrea Corallo |
Subject: |
feature/native-comp 85450f0 1/2: * Fix typo name plus make error homogeneous in `comp-trampoline-compile' |
Date: |
Sat, 10 Oct 2020 04:37:57 -0400 (EDT) |
branch: feature/native-comp
commit 85450f03be6cbb3e09964ce62e1f63875f0848a3
Author: Andrew Whatson <whatson@gmail.com>
Commit: Andrea Corallo <akrl@sdf.org>
* 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 763d44a..0445fc0 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)))