[nongnu] elpa/parseclj ba04dbe334 171/185: Remove remaining a-list call, move a.el to be test-only

[ELPA Syncer]

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

    Remove remaining a-list call, move a.el to be test-only
---
 CHANGELOG.md              | 4 ++++
 parseclj-ast.el           | 1 -
 parseclj-lex.el           | 2 +-
 parseclj.el               | 6 ++++--
 test/parseclj-ast-test.el | 1 +
 5 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 7c147104d3..c36353dce4 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Unreleased
 
+## 1.0.1 (2021-09-27)
+
+- Remove remaining a.el usage
+
 ## 1.0.0 (2021-09-27)
 
 - Added a `:read-one` option to read/parse a single form at a time
diff --git a/parseclj-ast.el b/parseclj-ast.el
index 7bdc3a1c0a..2470b06ed7 100644
--- a/parseclj-ast.el
+++ b/parseclj-ast.el
@@ -27,7 +27,6 @@
 
 ;;; Code:
 
-(require 'a)
 (require 'seq)
 (require 'subr-x)
 (require 'parseclj-lex)
diff --git a/parseclj-lex.el b/parseclj-lex.el
index d5a817c0d8..8752f5dbd1 100644
--- a/parseclj-lex.el
+++ b/parseclj-lex.el
@@ -74,7 +74,7 @@ Tokens at a mimimum have these attributes
 - POS: the position in the input, starts from 1 (like point)
 
 Other ATTRIBUTES can be given as a flat list of key-value pairs."
-  (apply 'a-list :token-type type :form form :pos pos attributes))
+  (apply #'parseclj-alist :token-type type :form form :pos pos attributes))
 
 (defun parseclj-lex-error-token (pos &optional error-type)
   "Create a lexer error token starting at POS.
diff --git a/parseclj.el b/parseclj.el
index c2e2372338..8d85bf080a 100644
--- a/parseclj.el
+++ b/parseclj.el
@@ -31,8 +31,7 @@
 ;;; Code:
 
 (require 'map)
-(require 'parseclj-parser)
-(require 'parseclj-ast)
+(require 'seq)
 
 (defun parseclj-alist (&rest kvs)
   "Create an association list from the given keys and values KVS.
@@ -42,6 +41,9 @@ For example: (parseclj-alist :foo 123 :bar 456)"
   ;; (map-into kvs 'alist)
   (mapcar (lambda (kv) (cons (car kv) (cadr kv))) (seq-partition kvs 2)))
 
+(require 'parseclj-parser)
+(require 'parseclj-ast)
+
 (defun parseclj-hash-table (&rest kvs)
   "Create a hash table from the given keys and values KVS.
 Arguments are simply provided in sequence, rather than as lists
diff --git a/test/parseclj-ast-test.el b/test/parseclj-ast-test.el
index 5707500359..4ac9355c2c 100644
--- a/test/parseclj-ast-test.el
+++ b/test/parseclj-ast-test.el
@@ -27,6 +27,7 @@
 
 ;;; Code
 
+(require 'a)
 (require 'ert)
 (require 'parseclj-ast)