[nongnu] elpa/geiser-chicken aecb324 067/102: Version check is 4.x compatible again

[Philip Kaludercic]

branch: elpa/geiser-chicken
commit aecb324e751c57bb8e8b1c25e3d350c0cfdd65f1
Author: Dan Leslie <dan@ironoxide.ca>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    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))))