-let create ~dictionary ~mml ~tml ~log =
- I_mathml_editor.create dictionary#as_Document mml#as_Document tml#as_Document log
+let create ?(alt_lexer=false) ~dictionary_uri ~mml_uri ~tml_uri ~log =
+ I_mathml_editor.create ~alt_lexer ~dictionary_uri ~mml_uri ~tml_uri ~log