[nongnu] elpa/geiser-chicken 0740b46 076/102: Checking Chicken's version with the proper invocation

[Philip Kaludercic]

branch: elpa/geiser-chicken
commit 0740b46fae5a1628d4e23c4e080ee9dc392f4555
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Checking Chicken's version with the proper invocation
    
    I am eliding any flags provided in geiser-chicken-binary, since
    version checks should be affected by them to my knowledge.
    
    Should fix issue #265
---
 elisp/geiser-chicken.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el
index b436d92..1af2afa 100644
--- a/elisp/geiser-chicken.el
+++ b/elisp/geiser-chicken.el
@@ -1,6 +1,6 @@
 ;; geiser-chicken.el -- chicken's implementation of the geiser protocols
 
-;; Copyright (C) 2014, 2015 Daniel Leslie
+;; Copyright (C) 2014, 2015, 2019 Daniel Leslie
 
 ;; Based on geiser-guile.el by Jose Antonio Ortega Ruiz
 
@@ -265,7 +265,7 @@ This function uses `geiser-chicken-init-file' if it exists."
                            (eval `(begin (import chicken.platform) \
                                          (chicken-version)))) \
                          (chicken-version)))'"
-           binary)))
+           (if (listp binary) (car binary) binary))))
 
 (defun connect-to-chicken ()
   "Start a Chicken REPL connected to a remote process."