ocaml: catch special case when expression is just an identifier

Improve type completion, prevent "Not_found" error to escape.