[svn] r6876: nemerle/trunk/ncc/hierarchy/TypeBuilder.n

[IT]

Log:
Fixed TypeBuilder.IsVariantOption for run_phase <= 2

Author: IT
Date: Mon Nov 13 00:45:56 2006
New Revision: 6876

Modified:
   nemerle/trunk/ncc/hierarchy/TypeBuilder.n

Modified: nemerle/trunk/ncc/hierarchy/TypeBuilder.n
==============================================================================
--- nemerle/trunk/ncc/hierarchy/TypeBuilder.n	(original)
+++ nemerle/trunk/ncc/hierarchy/TypeBuilder.n	Mon Nov 13 00:45:56 2006
@@ -257,7 +257,13 @@
   //TODO: Move it member to parent class
   public /*override*/ IsVariantOption : bool
   {
-    get { pt_tydecl is PT.TopDeclaration.VariantOption }
+    get
+    {
+      if (TyManager.run_phase <= 2)
+        pt_tydecl is PT.TopDeclaration.VariantOption
+      else
+        tydecl is TypeDeclaration.VariantOption 
+    }
   }
 
   public override GetModifiers () : Modifiers