For prefix-2 elements: pass children to reduce in right order

Author: plexus

parseclj-parser.el

@@ -235,7 +235,7 @@ functions. Additionally the following options are recognized
              new-stack)
         (while (and top-value-1 top-value-2 opening-token)
           (setq new-stack (nthcdr (apply #'+ (mapcar #'length (list top-value-1 top-value-2 opening-token))) stack))
-          (setq stack (funcall reduce-branch new-stack (car opening-token) (append (cdr opening-token) top-value-1 top-value-2) options))
+          (setq stack (funcall reduce-branch new-stack (car opening-token) (append (cdr opening-token) top-value-2 top-value-1) options))
 
           ;; recur
           (setq top-value-1 (parseclj--take-value stack value-p))

test/parseclj-test.el

@@ -218,15 +218,15 @@
              (:position . 1)
              (:children ((:node-type . :with-meta)
                          (:position . 1)
-                         (:children ((:node-type . :vector)
+                         (:children ((:node-type . :map)
+                                     (:position . 2)
+                                     (:children))
+                                    ((:node-type . :vector)
                                      (:position . 5)
                                      (:children ((:node-type . :number)
                                                  (:position . 6)
                                                  (:form . "123")
-                                                 (:value . 123))))
-                                    ((:node-type . :map)
-                                     (:position . 2)
-                                     (:children)))))))))
+                                                 (:value . 123)))))))))))
 
 (ert-deftest parseclj--parse-var-test ()
   (should (equal