From 4ae2527b4bceecac95dc265ca09a6de60a5d526a Mon Sep 17 00:00:00 2001 From: Dan Leslie Date: Sun, 11 Nov 2018 00:43:14 -0800 Subject: Version check is 4.x compatible again --- elisp/geiser-chicken.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'elisp') 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)))) -- cgit v1.2.3