From c599b32646272396f436db24303aed64e6766361 Mon Sep 17 00:00:00 2001
From: Graydon Hoare <graydon@mozilla.com>
Date: Thu, 12 Aug 2010 10:28:23 -0700
Subject: [PATCH] Kill old parser support for type-parametric modules. We don't
 support those.

---
 src/boot/fe/item.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/boot/fe/item.ml b/src/boot/fe/item.ml
index 82ec2fafc10..b5a8bb7aa59 100644
--- a/src/boot/fe/item.ml
+++ b/src/boot/fe/item.ml
@@ -840,14 +840,14 @@ and parse_mod_item (ps:pstate) : (Ast.ident * Ast.mod_item) =
                 | _ -> CONV_cdecl
             in
               expect ps MOD;
-              let (ident, params) = parse_ident_and_params ps "native mod" in
+              let ident = Pexp.parse_ident ps in
               let path = parse_lib_name ident in
               let items = parse_mod_items_from_signature ps in
               let bpos = lexpos ps in
               let rlib = REQUIRED_LIB_c { required_libname = path;
                                           required_prefix = ps.pstate_depth }
               in
-              let item = decl params (Ast.MOD_ITEM_mod items) in
+              let item = decl [||] (Ast.MOD_ITEM_mod items) in
               let item = span ps apos bpos item in
                 note_required_mod ps {lo=apos; hi=bpos} conv rlib item;
                 (ident, item)