[nongnu] elpa/emacsql 45f43323ad 275/427: Check the compiler error code.

[ELPA Syncer]

branch: elpa/emacsql
commit 45f43323adfe46a4ef0f8b65d7a794c9346c98a2
Author: Christopher Wellons <wellons@nullprogram.com>
Commit: Christopher Wellons <wellons@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.")