branch: elpa/geiser-chicken
commit aecb324e751c57bb8e8b1c25e3d350c0cfdd65f1
Author: Dan Leslie <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
Version check is 4.x compatible again
---
elisp/geiser-chicken.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el
index dafdef9..078db57 100644
--- a/elisp/geiser-chicken.el
+++ b/elisp/geiser-chicken.el
@@ -258,10 +258,10 @@ This function uses `geiser-chicken-init-file' if it
exists."
(defconst geiser-chicken-minimum-version "4.8.0.0")
(defun geiser-chicken--version (binary)
- (cadr
- (split-string
- (cadddr
- (process-lines "csc" "-version")))))
+ (cadar
+ (seq-filter #'(lambda (l) (equalp "Version" (car l)))
+ (mapcar #'split-string
+ (process-lines binary "-version")))))
(defun connect-to-chicken ()
"Start a Chicken REPL connected to a remote process."
@@ -301,7 +301,7 @@ This function uses `geiser-chicken-init-file' if it exists."
(defun geiser-chicken--startup (remote)
(compilation-setup t)
(cond
- ((version< (geiser-chicken--version nil) "5.0.0")
+ ((version< (geiser-chicken--version geiser-chicken-binary) "5.0.0")
(geiser-chicken4--compile-or-load t))
(t (geiser-chicken5-load))))
