summaryrefslogtreecommitdiff
path: root/geiser-guile.el
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-02-15 23:20:08 +0000
committerjao <jao@gnu.org>2022-02-15 23:20:08 +0000
commitcfd9116dcb246126950d7f2f662f09149684128b (patch)
treedcce6f956bb212b93be19f27e92f83e43502537c /geiser-guile.el
parentecd118171a111e04120d11c0d72345ce1d0f8066 (diff)
downloadgeiser-guile-cfd9116dcb246126950d7f2f662f09149684128b.tar.gz
geiser-guile-cfd9116dcb246126950d7f2f662f09149684128b.tar.bz2
Ensure sane shell command switch during version checks
See discussion in issue #13
Diffstat (limited to 'geiser-guile.el')
-rw-r--r--geiser-guile.el10
1 files changed, 6 insertions, 4 deletions
diff --git a/geiser-guile.el b/geiser-guile.el
index 9ebe4d6..3a235c5 100644
--- a/geiser-guile.el
+++ b/geiser-guile.el
@@ -457,10 +457,12 @@ This function uses `geiser-guile-init-file' if it exists."
(defun geiser-guile--version (_binary)
"Find Guile's version running the configured Guile binary."
;; maybe one day we'll have `process-lines' with tramp support
- (shell-command-to-string
- (format "%s -c %s"
- (geiser-guile--binary)
- (shell-quote-argument "(display (version))"))))
+ (let ((shell-command-switch "-c")
+ (shell-file-name "sh"))
+ (shell-command-to-string
+ (format "%s -c %s"
+ (geiser-guile--binary)
+ (shell-quote-argument "(display (version))")))))
(defun geiser-guile-update-warning-level ()
"Update the warning level used by the REPL.