From f0faeaed25b47a91b36e6637121f80559e8c3ccb Mon Sep 17 00:00:00 2001
From: Graydon Hoare <graydon@mozilla.com>
Date: Thu, 1 Jul 2010 23:45:16 -0700
Subject: [PATCH] Yeah. Not even a semantic mix-up: just a damn typo.

---
 src/boot/me/trans.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/boot/me/trans.ml b/src/boot/me/trans.ml
index 3a9085f725b..fab9403db14 100644
--- a/src/boot/me/trans.ml
+++ b/src/boot/me/trans.ml
@@ -2720,7 +2720,7 @@ let trans_visitor
       (curr_iso:Ast.ty_iso option)
       : unit =
     match slot.Ast.slot_mode with
-        Ast.MODE_alias
+        Ast.MODE_alias -> ()
           (* Aliases are always free to drop. *)
       | Ast.MODE_local ->
           drop_ty ty_params cell (slot_ty slot) curr_iso