From 48488b0dcf06bd729f0920e7744efd3b06017c58 Mon Sep 17 00:00:00 2001
From: Graydon Hoare <graydon@mozilla.com>
Date: Thu, 8 Jul 2010 08:25:12 -0700
Subject: [PATCH] Build fix from jmuizelaar (on ocamlc versions that notice
 this bug; drat, not all do)

---
 AUTHORS.txt           | 1 +
 src/boot/me/alias.ml  | 2 +-
 src/boot/me/semant.ml | 4 ++--
 src/boot/me/trans.ml  | 2 +-
 4 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/AUTHORS.txt b/AUTHORS.txt
index 9496c0b6b1e..95aeaf3b4b6 100644
--- a/AUTHORS.txt
+++ b/AUTHORS.txt
@@ -7,6 +7,7 @@ Other authors:
 Andreas Gal <gal@mozilla.com>
 Brendan Eich <brendan@mozilla.org>
 Dave Herman <dherman@mozilla.com>
+Jeff Mulzelaar <jmuizelaar@mozilla.com>
 Matt Brubeck <mbrubeck@limpet.net>
 Michael Bebenita <mbebenita@mozilla.com>
 Patrick Walton <pwalton@mozilla.com>
diff --git a/src/boot/me/alias.ml b/src/boot/me/alias.ml
index 2c507335871..d98316efc8c 100644
--- a/src/boot/me/alias.ml
+++ b/src/boot/me/alias.ml
@@ -41,7 +41,7 @@ let alias_analysis_visitor
               begin
                 fun i slot ->
                   match slot.Ast.slot_mode with
-                      Ast.MODE_alias _ ->
+                      Ast.MODE_alias  ->
                         alias_atom args.(i)
                     | _ -> ()
               end
diff --git a/src/boot/me/semant.ml b/src/boot/me/semant.ml
index 8d2ed8ac5ea..c67bb822268 100644
--- a/src/boot/me/semant.ml
+++ b/src/boot/me/semant.ml
@@ -1883,8 +1883,8 @@ and slot_referent_type (abi:Abi.abi) (sl:Ast.slot) : Il.referent_ty =
 
   let rty = referent_type abi (slot_ty sl) in
     match sl.Ast.slot_mode with
-      | Ast.MODE_local _ -> rty
-      | Ast.MODE_alias _ -> sp rty
+      | Ast.MODE_local -> rty
+      | Ast.MODE_alias -> sp rty
 ;;
 
 let task_rty (abi:Abi.abi) : Il.referent_ty =
diff --git a/src/boot/me/trans.ml b/src/boot/me/trans.ml
index 6a14a1cec26..f77386a95b4 100644
--- a/src/boot/me/trans.ml
+++ b/src/boot/me/trans.ml
@@ -2859,7 +2859,7 @@ let trans_visitor
         Ast.MODE_local ->
           cell
 
-      | Ast.MODE_alias _  ->
+      | Ast.MODE_alias  ->
           if initializing
           then cell
           else deref cell