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

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

[nongnu] elpa/parseclj da0c877940 069/185: Remove dash, using seq is goo


From: ELPA Syncer
Subject: [nongnu] elpa/parseclj da0c877940 069/185: Remove dash, using seq is good enough
Date: Tue, 28 Dec 2021 14:05:18 -0500 (EST)

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

    Remove dash, using seq is good enough
---
 clj-lex.el   | 4 +---
 clj-parse.el | 8 ++++----
 2 files changed, 5 insertions(+), 7 deletions(-)

diff --git a/clj-lex.el b/clj-lex.el
index 99b5264d34..f85818ecfb 100644
--- a/clj-lex.el
+++ b/clj-lex.el
@@ -25,15 +25,13 @@
 
 ;; A reader for EDN data files and parser for Clojure source files.
 
-(require 'dash)
-
 (defun clj-lex-token (type form pos &rest args)
   `((type . ,type)
     (form . ,form)
     (pos  . ,pos)
     ,@(mapcar (lambda (pair)
                 (cons (car pair) (cadr pair)))
-              (-partition 2 args))))
+              (seq-partition args 2))))
 
 (defun clj-lex-token-type (token)
   (and (listp token)
diff --git a/clj-parse.el b/clj-parse.el
index 306d6b54e2..5ca45db548 100644
--- a/clj-parse.el
+++ b/clj-parse.el
@@ -4,7 +4,7 @@
 
 ;; Author: Arne Brasseur <arne@arnebrasseur.net>
 ;; Keywords: lisp
-;; Package-Requires: ((dash "2.12.0") (emacs "25") (a "0.1.0alpha2"))
+;; Package-Requires: ((emacs "25") (a "0.1.0alpha3"))
 ;; Version: 0.1.0
 
 ;; This file is not part of GNU Emacs.
@@ -30,9 +30,9 @@
 
 ;;; Code:
 
-(require 'a)
-(require 'dash)
 (require 'cl-lib)
+(require 'a)
+
 (require 'clj-lex)
 (require 'clj-edn)
 (require 'clj-ast)
@@ -119,7 +119,7 @@
     (:rparen :lparen)
     (:rbracket :lbracket)
     (:rbrace (clj-lex-token-type
-              (-find (lambda (token) (member (clj-lex-token-type token) 
'(:lbrace :set))) stack)))))
+              (seq-find (lambda (token) (member (clj-lex-token-type token) 
'(:lbrace :set))) stack)))))
 
 (defun clj-parse--reduce-coll (stack closer-token reduceN)
   "Reduce collection based on the top of the stack"



reply via email to

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