branch: elpa/parseclj
commit 40e36c41eb848ad9739d5bbf56f8f486663e4b7c
Author: Arne Brasseur <[email protected]>
Commit: Arne Brasseur <[email protected]>
alist-get was only introduced in 25.1? :sadpanda:
---
clj-parse.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/clj-parse.el b/clj-parse.el
index 631df0d663..cc70aeadd0 100644
--- a/clj-parse.el
+++ b/clj-parse.el
@@ -41,7 +41,7 @@
(defun clj-parse* (reducer)
(let ((stack nil)
(token (clj-lex-next)))
- (while (not (eq (alist-get 'type token) :eof))
+ (while (not (eq (cdr (assq 'type token)) :eof))
;; (prin1 (alist-get 'type token))
;; (print token)
;; (print stack)
@@ -55,7 +55,7 @@
(push token stack))
(:rparen
(let ((list nil))
- (while (not (and (listp (car stack)) (eq (alist-get 'type (car
stack)) :lparen)))
+ (while (not (and (listp (car stack)) (eq (cdr (assq 'type (car
stack))) :lparen)))
(push (pop stack) list))
(pop stack) ;; :lparen
;; (print list)
