From df0eebcf1e31496106da43bcde40ac4983857bb1 Mon Sep 17 00:00:00 2001
From: Graydon Hoare <graydon@mozilla.com>
Date: Wed, 30 Jun 2010 01:42:40 -0700
Subject: [PATCH] Improve error message.

---
 src/boot/me/semant.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/boot/me/semant.ml b/src/boot/me/semant.ml
index 26d38e0383a..c7536fa65bf 100644
--- a/src/boot/me/semant.ml
+++ b/src/boot/me/semant.ml
@@ -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
 ;;