Fix error-message typo.

2010-06-30 00:55:53 -07:00 · 2010-06-30 00:55:53 -07:00 · 6ee16b588d
commit 6ee16b588d
parent 992f344c83
1 changed files with 1 additions and 1 deletions
--- a/src/boot/me/semant.ml
+++ b/src/boot/me/semant.ml
@ -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
 ;;