 ;; SQLite compilation
 
 (defun emacsql-sqlite-compile-switches ()
+  "Return the compilation switches from the Makefile under sqlite/."
   (let ((makefile (expand-file-name "sqlite/Makefile" emacsql-data-root))
         (case-fold-search nil))
     (with-temp-buffer

              (emacsql-sqlite-mark-exec emacsql-sqlite-executable)
              :success)))))))

(defun emacsql-sqlite-ensure-binary ()
  "Ensure the EmacSQL SQLite binary is available, signaling an error if not."
  (unless (file-exists-p emacsql-sqlite-executable)

            (insert (mapconcat #'identity (cons cc arguments) " ") "\n")
            (eql 0 (apply #'call-process cc nil (if async 0 t) t
                          arguments))))))))

;; SQLite binary fetching

(defvar emacsql-sqlite-user-prompted nil
  "To avoid prompting for fetch multiple times.")
