summaryrefslogtreecommitdiff
path: root/elisp/geiser-chicken.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2015-10-21 02:29:46 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2015-10-21 02:29:46 +0200
commit3319d2785711aa7e717f5d68a09523307bf126f1 (patch)
treeff0d414d984250bb65d4c795478683ff4f4b3cac /elisp/geiser-chicken.el
parentc6f17b25200e36f80d812684a2127b451fc11817 (diff)
downloadgeiser-guile-3319d2785711aa7e717f5d68a09523307bf126f1.tar.gz
geiser-guile-3319d2785711aa7e717f5d68a09523307bf126f1.tar.bz2
Use OS-specific quotes when asking for versions
Fixes #95. This is @kovrik's patch, with 80-columns max formatting.
Diffstat (limited to 'elisp/geiser-chicken.el')
-rw-r--r--elisp/geiser-chicken.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el
index 7af8676..a68ab7b 100644
--- a/elisp/geiser-chicken.el
+++ b/elisp/geiser-chicken.el
@@ -270,8 +270,9 @@ This function uses `geiser-chicken-init-file' if it exists."
(defconst geiser-chicken-minimum-version "4.8.0.0")
(defun geiser-chicken--version (binary)
- (shell-command-to-string (format "%s -e \"(display (chicken-version))\""
- binary)))
+ (shell-command-to-string
+ (format "%s -e %s" binary
+ (shell-quote-argument "(display (chicken-version))"))))
(defun connect-to-chicken ()
"Start a Chicken REPL connected to a remote process."