(defn lockstep-transform [nodes transformations-map]
(let [state (lockstep-automaton (keys transformations-map))
transformations (vec (map #(or % (constantly nil))
(vals transformations-map)))]
(mapknit #(transform-loc (xml/xml-zip %1) state transformations %2) nodes)))
Comments top
No comments for lockstep-transform. Log in to add a comment.