diff options
| author | Dan Leslie <dan@ironoxide.ca> | 2018-11-11 00:43:14 -0800 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2018-11-12 17:46:57 +0000 |
| commit | 4ae2527b4bceecac95dc265ca09a6de60a5d526a (patch) | |
| tree | 2921180c6cc657532635d607b030627015fd9882 | |
| parent | b52900068cece7e9126d75fe619423dd80e70529 (diff) | |
| download | geiser-guile-4ae2527b4bceecac95dc265ca09a6de60a5d526a.tar.gz geiser-guile-4ae2527b4bceecac95dc265ca09a6de60a5d526a.tar.bz2 | |
Version check is 4.x compatible again
| -rw-r--r-- | elisp/geiser-chicken.el | 10 |
1 files 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)))) |