From 09793dd0c85be635666c308719cf83f377a7ac6e Mon Sep 17 00:00:00 2001
From: Patrick Walton <pcwalton@mimiga.net>
Date: Wed, 15 Sep 2010 15:24:11 -0700
Subject: [PATCH] Not finding a name in a module isn't a bug, it's an error.
 Report it as such.

---
 src/boot/me/type.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/boot/me/type.ml b/src/boot/me/type.ml
index 4e737be2f94..77f8644b347 100644
--- a/src/boot/me/type.ml
+++ b/src/boot/me/type.ml
@@ -438,9 +438,9 @@ let check_stmt (cx:Semant.ctxt) : (fn_ctx -> Ast.stmt -> unit) =
               try
                 Hashtbl.find items id
               with Not_found ->
-                Common.bug
-                  ()
-                  "internal_check_ext_lval: ident %s not found in mod item"
+                Common.err
+                  None
+                  "the name '%s' can't be found in the module"
                   id
             in
             let lty =