From: Eshel Yaron <me@eshelyaron.com>
Date: Mon, 26 Sep 2022 10:00:58 +0000 (+0300)
Subject: FIXED: don't rely on string-lines added in Emacs 28.1
X-Git-Tag: v0.4.0~1
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=69be982c4192af19dd36142e96ced5e9cdcad000;p=sweep.git

FIXED: don't rely on string-lines added in Emacs 28.1
---

diff --git a/sweep.el b/sweep.el
index 8ba8cab..c647417 100644
--- a/sweep.el
+++ b/sweep.el
@@ -139,14 +139,16 @@ inserted to the input history in `sweep-top-level-mode' buffers."
 
 (defun sweep--ensure-module ()
   (let ((sweep-module-path (car
-                            (string-lines
-                             (shell-command-to-string
-                              (concat
-                               (or sweep-swipl-path (executable-find "swipl"))
-                               " -g"
-                               " write_sweep_module_location"
-                               " -t"
-                               " halt"))))))
+                            (save-match-data
+                              (split-string
+                               (shell-command-to-string
+                                (concat
+                                 (or sweep-swipl-path (executable-find "swipl"))
+                                 " -g"
+                                 " write_sweep_module_location"
+                                 " -t"
+                                 " halt"))
+                               "\n")))))
     (load sweep-module-path)))
 
 (defface sweep-debug-prefix-face