[ "value" attr >>value ]
[ child-type-tag xml>type >>type ]
} cleave ;
-
+
: load-type ( type xml -- type )
{
[ "name" attr >>name ]
[ child-type-tag xml>type >>type ]
[ "transfer-ownership" attr >>transfer-ownership ]
} cleave ;
-
+
: load-callable ( callable xml -- callable )
[ "return-value" tag-named xml>return >>return ]
[