module Make (C : DisambiguateTypes.Callbacks) =
struct
- let disambiguate_term ~(dbd:Mysql.dbd) context metasenv term_as_string
- aliases
+ let disambiguate_term ~(dbd:Mysql.dbd) ~context ~metasenv
+ ?initial_ugraph ~aliases term_as_string
=
let module Disambiguate' = Disambiguate.Make (C) in
let term =
CicTextualParser2.parse_term (Stream.of_string term_as_string)
in
- Disambiguate'.disambiguate_term ~dbd context metasenv term ~aliases
+ Disambiguate'.disambiguate_term ~dbd ~context ~metasenv
+ ?initial_ugraph ~aliases term
end
end