emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/parseclj 40e36c41eb 006/185: alist-get was only introduced


From: ELPA Syncer
Subject: [nongnu] elpa/parseclj 40e36c41eb 006/185: alist-get was only introduced in 25.1? :sadpanda:
Date: Tue, 28 Dec 2021 14:05:08 -0500 (EST)

branch: elpa/parseclj
commit 40e36c41eb848ad9739d5bbf56f8f486663e4b7c
Author: Arne Brasseur <arne@arnebrasseur.net>
Commit: Arne Brasseur <arne@arnebrasseur.net>

    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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]