[nongnu] elpa/geiser-chibi 420909d 28/38: Use cl-lib instead of cl

[Philip Kaludercic]

branch: elpa/geiser-chibi
commit 420909de6ec2ff92f346aecac42f1e8bdfcf0405
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Use cl-lib instead of cl
    
    Starting with Emacs 27 cl is fully deprecated, including at
    compile-time.
---
 elisp/geiser-chibi.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/elisp/geiser-chibi.el b/elisp/geiser-chibi.el
index 813cfbb..8bd8013 100644
--- a/elisp/geiser-chibi.el
+++ b/elisp/geiser-chibi.el
@@ -20,7 +20,7 @@
 (require 'compile)
 (require 'info-look)
 
-(eval-when-compile (require 'cl))
+(eval-when-compile (require 'cl-lib))
 
 
 ;;; Customization:
@@ -65,7 +65,7 @@ This function uses `geiser-chibi-init-file' if it exists."
 ;;; Evaluation support:
 
 (defun geiser-chibi--geiser-procedure (proc &rest args)
-  (case proc
+  (cl-case proc
     ((eval compile)
      (let ((form (mapconcat 'identity (cdr args) " "))
            (module (cond ((string-equal "'()" (car args))
@@ -110,9 +110,9 @@ This function uses `geiser-chibi-init-file' if it exists."
 (defconst geiser-chibi-minimum-version "0.7.3")
 
 (defun geiser-chibi--version (binary)
-  (second (split-string
-           (car (process-lines binary "-V"))
-           " ")))
+  (cadr (split-string
+         (car (process-lines binary "-V"))
+         " ")))
 
 (defun geiser-chibi--startup (remote)
   (let ((geiser-log-verbose-p t))