diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2015-10-21 02:29:46 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2015-10-21 02:29:46 +0200 |
| commit | 3319d2785711aa7e717f5d68a09523307bf126f1 (patch) | |
| tree | ff0d414d984250bb65d4c795478683ff4f4b3cac /elisp/geiser-chicken.el | |
| parent | c6f17b25200e36f80d812684a2127b451fc11817 (diff) | |
| download | geiser-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.el | 5 |
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." |