[nongnu] elpa/sweeprolog 1f4b1a6dcc 079/166: MODIFIED: use executable-find to locate the swipl executable...

[ELPA Syncer]

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

    MODIFIED: use executable-find to locate the swipl executable...
    
    ...instead of looking for it in the sweep installation directory,
    which is no longer appropriate since we don't build swipl ourselves
    but rely on an existing installation.
---
 sweep.el | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/sweep.el b/sweep.el
index 37371ea18b..a1d08b0491 100644
--- a/sweep.el
+++ b/sweep.el
@@ -33,9 +33,10 @@
   :group 'prolog)
 
 (defcustom sweep-swipl-path nil
-  "Path to the swipl binary.
+  "Path to the swipl executable.
 When non-nil, this is used by the embedded SWI-Prolog runtime to
-locate its \"home\" directory."
+locate its \"home\" directory.  Otherwise, the `executable-find'
+is used to find a the swipl executable."
   :package-version '((sweep . "0.1.1"))
   :type 'string
   :group 'sweep)
@@ -161,9 +162,7 @@ locate its \"home\" directory."
 
 (defun sweep-init ()
   (apply #'sweep-initialize
-         (cons (or sweep-swipl-path
-                   (expand-file-name "bin/swipl" (file-name-directory
-                                                  load-file-name)))
+         (cons (or sweep-swipl-path (executable-find "swipl"))
                (cons "-q" (cons "--no-signals" sweep-init-args))))
   (sweep-setup-message-hook)
   (sweep-start-prolog-server))