Fix error-message typo.

This commit is contained in:
Graydon Hoare 2010-06-30 00:55:53 -07:00
parent 992f344c83
commit 6ee16b588d

View file

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