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 | 502b3ac7e73ed9bcece8123a040a666923df5837 (patch) | |
| tree | fc0a50a5bfec645cc86bfbb7dda0671d91b0938f | |
| parent | 21bc5bbd8c3a8defecc74d669bbcef7b2c86af15 (diff) | |
| download | geiser-chez-502b3ac7e73ed9bcece8123a040a666923df5837.tar.gz geiser-chez-502b3ac7e73ed9bcece8123a040a666923df5837.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-chez.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/elisp/geiser-chez.el b/elisp/geiser-chez.el index c1bdde7..1b5b84b 100644 --- a/elisp/geiser-chez.el +++ b/elisp/geiser-chez.el @@ -20,7 +20,7 @@ (require 'compile) (require 'info-look) -(eval-when-compile (require 'cl)) +(eval-when-compile (require 'cl-lib)) ;;; Customization: @@ -62,7 +62,7 @@ This function uses `geiser-chez-init-file' if it exists." ;;; Evaluation support: (defun geiser-chez--geiser-procedure (proc &rest args) - (case proc + (cl-case proc ((eval compile) (let ((form (mapconcat 'identity (cdr args) " ")) (module (cond ((string-equal "'()" (car args)) |