Improve error message.

This commit is contained in:
Graydon Hoare 2010-06-30 01:42:40 -07:00
parent 5a8d93c652
commit df0eebcf1e

View File

@ -1098,8 +1098,7 @@ let project_type
| (_,_) ->
bug ()
"unhandled form of lval-ext in Semant."
"project_ty: %a indexed by %a"
"project_ty: bad lval-ext: %a indexed by %a"
Ast.sprintf_ty base_ty Ast.sprintf_lval_component comp
;;