[nongnu] elpa/parseedn adf57f36f4 11/32: Fix printing of hash-maps with multiple entries

[ELPA Syncer]

branch: elpa/parseedn
commit adf57f36f49108674cac4e1aa89559aeee6363cb
Author: Ákos Kiss <a...@coram.pub>
Commit: Ákos Kiss <a...@coram.pub>

    Fix printing of hash-maps with multiple entries
---
 parseedn.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/parseedn.el b/parseedn.el
index 7b09f598c6..e969d23d42 100644
--- a/parseedn.el
+++ b/parseedn.el
@@ -141,16 +141,16 @@ TAG-READERS is an optional association list.  For more 
information, see
       (insert " ")
       (parseedn-print-seq next))))
 
-(defun parseedn-print-kvs (map)
+(defun parseedn-print-kvs (map &optional ks)
   "Insert hash table MAP as an EDN map into the current buffer."
-  (let ((keys (a-keys map)))
+  (let ((keys (or ks (a-keys map))))
     (parseedn-print (car keys))
     (insert " ")
     (parseedn-print (a-get map (car keys)))
     (let ((next (cdr keys)))
       (when (not (seq-empty-p next))
         (insert ", ")
-        (parseedn-print-kvs next)))))
+        (parseedn-print-kvs map next)))))
 
 (defun parseedn-print (datum)
   "Insert DATUM as EDN into the current buffer.