summaryrefslogtreecommitdiff
path: root/elisp/geiser-syntax.el
diff options
context:
space:
mode:
authorJonas Bernoulli <jonas@bernoul.li>2020-03-27 23:13:37 +0100
committerJonas Bernoulli <jonas@bernoul.li>2020-03-27 23:13:37 +0100
commit8b07def2de860cbb4f4a28991572fb34b45a9941 (patch)
treef61160691d09c269d7eecd911e9612d294024f88 /elisp/geiser-syntax.el
parent6496bc5693aa1ab32b9d4589fcd41266dcb37586 (diff)
downloadgeiser-8b07def2de860cbb4f4a28991572fb34b45a9941.tar.gz
geiser-8b07def2de860cbb4f4a28991572fb34b45a9941.tar.bz2
Use cl-lib instead of cl
Starting with Emacs 27 cl is fully deprecated, including at compile-time.
Diffstat (limited to 'elisp/geiser-syntax.el')
-rw-r--r--elisp/geiser-syntax.el14
1 files changed, 7 insertions, 7 deletions
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index 53c2c74..c0c379a 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -18,7 +18,7 @@
(require 'scheme)
-(eval-when-compile (require 'cl))
+(eval-when-compile (require 'cl-lib))
;;; Indentation:
@@ -197,14 +197,14 @@ implementation-specific entries for font-lock-keywords.")
(defun geiser-syntax--read/next-token ()
(skip-syntax-forward "->")
(if (geiser-syntax--read/eos) '(eob)
- (case (char-after)
+ (cl-case (char-after)
(?\; (geiser-syntax--read/skip-comment))
((?\( ?\[) (geiser-syntax--read/token 'lparen))
((?\) ?\]) (geiser-syntax--read/token 'rparen))
(?. (if (memq (car (syntax-after (1+ (point)))) '(0 11 12))
(geiser-syntax--read/token 'dot)
(cons 'atom (geiser-syntax--read/elisp))))
- (?\# (case (geiser-syntax--read/next-char)
+ (?\# (cl-case (geiser-syntax--read/next-char)
('nil '(eob))
(?| (geiser-syntax--read/skip-comment))
(?: (if (geiser-syntax--read/next-char)
@@ -219,7 +219,7 @@ implementation-specific entries for font-lock-keywords.")
((equal (symbol-name tok) "f") '(boolean . :f))
(tok (cons 'atom tok))
(t (geiser-syntax--read/next-token)))))))
- (?| (case (geiser-syntax--read/next-char) ;; gambit style block comments
+ (?| (cl-case (geiser-syntax--read/next-char) ;; gambit style block comments
('nil '(eob))
(?# (geiser-syntax--read/skip-comment))
(t (let ((tok (geiser-syntax--read/symbol)))
@@ -267,7 +267,7 @@ implementation-specific entries for font-lock-keywords.")
(defun geiser-syntax--read ()
(let ((token (geiser-syntax--read/next-token))
(max-lisp-eval-depth (max max-lisp-eval-depth 3000)))
- (case (car token)
+ (cl-case (car token)
(eob nil)
(lparen (geiser-syntax--read/list))
(vectorb (apply 'vector (geiser-syntax--read/list)))
@@ -294,7 +294,7 @@ implementation-specific entries for font-lock-keywords.")
(defsubst geiser-syntax--form-after-point (&optional boundary)
(let ((geiser-syntax--read/buffer-limit (and (numberp boundary) boundary)))
- (save-excursion (values (geiser-syntax--read) (point)))))
+ (save-excursion (list (geiser-syntax--read) (point)))))
(defun geiser-syntax--mapconcat (fun lst sep)
(cond ((null lst) "")
@@ -453,7 +453,7 @@ implementation-specific entries for font-lock-keywords.")
(let ((boundary (point))
(nesting (geiser-syntax--nesting-level)))
(geiser-syntax--pop-to-top)
- (multiple-value-bind (form end)
+ (cl-destructuring-bind (form end)
(geiser-syntax--form-after-point boundary)
(delete sym
(geiser-syntax--scan-locals bfs