From a0b470fec83758abe2f597142fba969ee8626277 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sat, 26 Dec 2015 23:47:31 +0100
Subject: 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(-)

(limited to 'elisp/geiser-chicken.el')

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 ()
-- 
cgit v1.2.3