From 156970ff1402512b4bbf53a5e1c22156cb0e2f9c Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 24 Feb 2019 20:48:12 +0000 Subject: 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(-) (limited to 'elisp') 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." -- cgit v1.2.3