sweep.el: remove outdated sweep--compile-module function

diff --git a/sweep.el b/sweep.el
index b2b49a9be6bafa9e5320032a19e47979c86de198..0aa636edb888a2c394d252b4638c963b5874ee36 100644 (file)
--- a/sweep.el
+++ b/sweep.el
@@ -112,9 +112,6 @@ inserted to the input history in `sweep-top-level-mode' buffers."
   :type 'string
   :group 'sweep)
 
-(defvar sweep-install-buffer-name "*Install sweep*"
-  "Name of the buffer used for compiling sweep-module.")
-
 (defcustom sweep-init-on-load t
   "If non-nil, initialize Prolog when `sweep' is loaded."
   :package-version '((sweep "0.1.0"))
@@ -132,22 +129,6 @@ inserted to the input history in `sweep-top-level-mode' buffers."
 
 (defvar sweep-prolog-server-port nil)
 
-(defun sweep--compile-module ()
-  "Compile sweep-module."
-  (interactive)
-  (let* ((sweep-directory
-          (shell-quote-argument (file-name-directory load-file-name)))
-         (make-commands
-          (concat
-           "cd " sweep-directory "; make; cd -"))
-         (buffer (get-buffer-create sweep-install-buffer-name)))
-    (pop-to-buffer buffer)
-    (compilation-mode)
-    (if (zerop (let ((inhibit-read-only t))
-                 (call-process "sh" nil buffer t "-c" make-commands)))
-        (message "Compilation of `sweep' module succeeded")
-      (error "Compilation of `sweep' module failed!"))))
-
 (declare-function sweep-initialize    "sweep-module")
 (declare-function sweep-initialized-p "sweep-module")
 (declare-function sweep-open-query    "sweep-module")