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 () bug ()
"unhandled form of lval-ext in Semant." "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 Ast.sprintf_ty base_ty Ast.sprintf_lval_component comp
;; ;;