let
set_attributes attrs obj =
List
.iter (
fun
(n,v)
->
obj >>>
AXOJs
.
Node
.set_attribute n v) attrs