sig
type 'a annotation_context
type 'a annotation_update_fn = 'a -> Xquery_core_ast.acexpr -> unit
val build_annotation_context :
'a ->
'a Ast_walker_annotate_context.annotation_update_fn ->
'a Ast_walker_annotate_context.annotation_context
val get_annotation_context :
'a Ast_walker_annotate_context.annotation_context -> 'a
val get_annotation_update_fn :
'a Ast_walker_annotate_context.annotation_context ->
'a Ast_walker_annotate_context.annotation_update_fn
end