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

[nazgul]

Log:
Fix IsInterface and IsAlias to check pt tree also

Author: nazgul
Date: Sat Oct 21 15:14:40 2006
New Revision: 6771

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	Sat Oct 21 15:14:40 2006
@@ -222,12 +222,20 @@
 
   public override IsInterface : bool
   {
-    get { tydecl is TypeDeclaration.Interface }
+    get { if (TyManager.run_phase <= 2)
+            pt_tydecl is PT.TopDeclaration.Interface
+          else
+            tydecl is TypeDeclaration.Interface 
+        }
   }
 
   public IsAlias : bool
   {
-    get { tydecl is TypeDeclaration.Alias }
+    get { if (TyManager.run_phase <= 2)
+            pt_tydecl is PT.TopDeclaration.Alias
+          else
+            tydecl is TypeDeclaration.Alias 
+        }
   }
 
   public IsStruct : bool