             (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.")

              (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)

;; 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
