branch: elpa/emacsql
commit 45f43323adfe46a4ef0f8b65d7a794c9346c98a2
Author: Christopher Wellons <well...@nullprogram.com>
Commit: Christopher Wellons <well...@nullprogram.com>
Check the compiler error code.
---
emacsql-sqlite.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/emacsql-sqlite.el b/emacsql-sqlite.el
index d9b062ac00..c3503f6b8b 100644
--- a/emacsql-sqlite.el
+++ b/emacsql-sqlite.el
@@ -96,7 +96,8 @@ buffer. This is for debugging purposes."
collect (match-string 0)))))
(defun emacsql-sqlite-compile (&optional o-level async)
- "Compile the SQLite back-end for EmacSQL, returning non-nil on success."
+ "Compile the SQLite back-end for EmacSQL, returning non-nil on success.
+If called with non-nil ASYNC the return value is meaningless."
(let* ((cc (executable-find "cc"))
(src (expand-file-name "sqlite" emacsql-data-root))
(files (mapcar (lambda (f) (expand-file-name f src))
@@ -116,8 +117,7 @@ buffer. This is for debugging purposes."
(with-current-buffer log
(let ((inhibit-read-only t))
(insert (mapconcat #'identity (cons cc arguments) " ") "\n")
- (apply #'call-process cc nil (if async 0 t) t arguments))))
- :success)))
+ (= 0 (apply #'call-process cc nil (if async 0 t) t
arguments))))))))
(defvar emacsql-sqlite-user-prompted nil
"To avoid prompting for fetch multiple times.")
