Yeah. Not even a semantic mix-up: just a damn typo.

2010-07-01 23:45:16 -07:00 · 2010-07-01 23:45:16 -07:00 · f0faeaed25
commit f0faeaed25
parent 27d69a88b1
1 changed files with 1 additions and 1 deletions
--- 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