---

yaml
---
r: 713
b: refs/heads/master
c: bba4cae
h: refs/heads/master
i:
  711: 5f05311
v: v3

Author: graydon

[refs]

@@ -1,2 +1,2 @@
 ---
-refs/heads/master: 46e46d0b49de8e245d091f7062dfc28ab71e869e
+refs/heads/master: bba4cae1b8b6422a4d9569c7b84139c53834b4eb

trunk/src/boot/me/type.ml

@@ -295,7 +295,9 @@ let check_stmt (cx:Semant.ctxt) : (fn_ctx -> Ast.stmt -> unit) =
             LTYPE_mono ty
           else
             LTYPE_poly ((Array.map (fun p -> p.Common.node) params), ty)
-      | Ast.MOD_ITEM_const (ty, _) -> LTYPE_mono ty
+      | Ast.MOD_ITEM_const _ ->
+          let ty = Hashtbl.find cx.Semant.ctxt_all_item_types mid_id in
+            LTYPE_mono ty
       | Ast.MOD_ITEM_type _ ->
           Common.err None "Type-item used in non-type context"
   in