branch: elpa/geiser-chicken
commit 0740b46fae5a1628d4e23c4e080ee9dc392f4555
Author: Jose Antonio Ortega Ruiz <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
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."
