summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--elisp/geiser-chicken.el3
-rw-r--r--elisp/geiser-guile.el4
-rw-r--r--elisp/geiser-racket.el4
3 files changed, 8 insertions, 3 deletions
diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el
index 0d9c8e7..054337a 100644
--- a/elisp/geiser-chicken.el
+++ b/elisp/geiser-chicken.el
@@ -274,7 +274,8 @@ This function uses `geiser-chicken-init-file' if it exists."
(defun geiser-chicken--version (binary)
(shell-command-to-string
- (format "%s -e %s" binary
+ (format "%s -e %s"
+ (shell-quote-binary binary)
(shell-quote-argument "(display (chicken-version))"))))
(defun connect-to-chicken ()
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index 697a045..c4f6293 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -336,7 +336,9 @@ This function uses `geiser-guile-init-file' if it exists."
(defun geiser-guile--version (binary)
(shell-command-to-string
- (format "%s -c %s" binary (shell-quote-argument "(display (version))"))))
+ (format "%s -c %s"
+ (shell-quote-argument binary)
+ (shell-quote-argument "(display (version))"))))
(defun geiser-guile-update-warning-level ()
"Update the warning level used by the REPL.
diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index fbd08c7..ac7626a 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -364,7 +364,9 @@ using start-geiser, a procedure in the geiser/server module."
(defun geiser-racket--version (binary)
(shell-command-to-string
- (format "%s -e %s" binary (shell-quote-argument "(display (version))"))))
+ (format "%s -e %s"
+ (shell-quote-argument binary)
+ (shell-quote-argument "(display (version))"))))
(defvar geiser-racket--image-cache-dir nil)