diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2019-02-24 20:48:12 +0000 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2019-02-24 20:48:12 +0000 |
| commit | 156970ff1402512b4bbf53a5e1c22156cb0e2f9c (patch) | |
| tree | 1a4c738648130915edb33b2d39b304c84904719f | |
| parent | 03f5d08ba07a89f9f69ba2efdca727999a214d82 (diff) | |
| download | geiser-guile-156970ff1402512b4bbf53a5e1c22156cb0e2f9c.tar.gz geiser-guile-156970ff1402512b4bbf53a5e1c22156cb0e2f9c.tar.bz2 | |
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
| -rw-r--r-- | elisp/geiser-chicken.el | 4 |
1 files 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." |