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

diff --git a/sweep.el b/sweep.el
index 8ba8cabf0c311437d529086ba95d2b66b167b494..c647417f86b19ff3814bbdcad0745cea253e51e4 100644 (file)
--- 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