[svn] r7371: nemerle/trunk/ncc/typing/Typer2.n

[nazgul]

Log:
Merge out accidental commit

Author: nazgul
Date: Fri Feb  2 21:30:21 2007
New Revision: 7371

Modified:
   nemerle/trunk/ncc/typing/Typer2.n

Modified: nemerle/trunk/ncc/typing/Typer2.n
==============================================================================
--- nemerle/trunk/ncc/typing/Typer2.n	(original)
+++ nemerle/trunk/ncc/typing/Typer2.n	Fri Feb  2 21:30:21 2007
@@ -861,11 +861,7 @@
 
           
         | TExpr.ImplicitValueTypeCtor =>
-          match (expr.MType) {
-            | Class (tycon, _) 
-            | Fun (_, MType.Class (tycon, _)) => MarkAsUsed (tycon, expr.Location)
-            | t => Util.ice ($"unexpected type $t")
-          }
+          MarkAsUsed ((expr.MType :> MType.Class).tycon, expr.Location);
           null