---

yaml
---
r: 701
b: refs/heads/master
c: 742b1c5
h: refs/heads/master
i:
  699: bf0d6ca
v: v3

Author: pcwalton

[refs]

@@ -1,2 +1,2 @@
 ---
-refs/heads/master: 1f0621d04ee9d938ba7d07df76837b86f43c6158
+refs/heads/master: 742b1c57938137f5d9a6676d40affc0c39348321

trunk/src/boot/fe/item.ml

@@ -1240,9 +1240,13 @@ and parse_use
         [| (ident, item) |]
 
 and parse_item_decl ps items fn =
-  Array.iter
-    (fun (id,it) -> htab_put items id it)
-    (fn ps);
+  let add (id, item) =
+    if Hashtbl.mem items id then
+      raise (Parse_err
+        (ps, (Printf.sprintf "item name already in use: '%s'" id)));
+    Hashtbl.add items id item
+  in
+  Array.iter add (fn ps)
 
 and parse_mod_header (ps:pstate)
                      : (Ast.mod_view * Ast.mod_items) =