diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2020-03-27 23:13:37 +0100 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2020-03-27 23:13:37 +0100 |
| commit | b52307215ab6e9530848b847513f757958ccb5e9 (patch) | |
| tree | a4c5c4e4dbcda49ee01d93c76fbc07cc8ce52909 | |
| parent | 8bf1a8b9233262adc8cf0dc47a677651e9b6cb92 (diff) | |
| download | geiser-guile-b52307215ab6e9530848b847513f757958ccb5e9.tar.gz geiser-guile-b52307215ab6e9530848b847513f757958ccb5e9.tar.bz2 | |
Use cl-lib instead of cl
Starting with Emacs 27 cl is fully deprecated, including at
compile-time.
| -rw-r--r-- | elisp/geiser-guile.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el index 1710052..cb67f41 100644 --- a/elisp/geiser-guile.el +++ b/elisp/geiser-guile.el @@ -25,7 +25,7 @@ (require 'compile) (require 'info-look) -(eval-when-compile (require 'cl)) +(eval-when-compile (require 'cl-lib)) ;;; Customization: @@ -157,7 +157,7 @@ This function uses `geiser-guile-init-file' if it exists." (mapconcat 'identity args " ")) (defun geiser-guile--geiser-procedure (proc &rest args) - (case proc + (cl-case proc ((eval compile) (format ",geiser-eval %s %s%s" (or (car args) "#f") (geiser-guile--linearize-args (cdr args)) |