[nongnu] elpa/sweeprolog 12fbadf13b 137/166: sweep.el: remove outdated sweep--compile-module function

[ELPA Syncer]

branch: elpa/sweeprolog
commit 12fbadf13b9c78e25002588784d905c8748bfb5b
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    sweep.el: remove outdated sweep--compile-module function
---
 sweep.el | 19 -------------------
 1 file changed, 19 deletions(-)

diff --git a/sweep.el b/sweep.el
index b2b49a9be6..0aa636edb8 100644
--- 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")