branch: elpa/geiser-chicken
commit 2098767cecd4ca101b17efbaaf01909dc7abe527
Author: Jose Antonio Ortega Ruiz <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>

    Quoting binary on version checks (issue #117)
    
    We could probably be even more robust, but i am being a bit lazy
    instead.
---
 elisp/geiser-chicken.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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 ()

Reply via email to