[svn] r7415: vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel: ExprFinder.n ExprWalkIn...

[IT]

Log:
Get back QT for macro.

Author: IT
Date: Tue Feb 13 18:28:26 2007
New Revision: 7415

Modified:
   vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/ExprFinder.n
   vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/ExprWalkInfo.n

Modified: vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/ExprFinder.n
==============================================================================
--- vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/ExprFinder.n	(original)
+++ vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/ExprFinder.n	Tue Feb 13 18:28:26 2007
@@ -93,6 +93,9 @@
       else
         from : object
 
+    | MacroEnvelope => expression;
+    | _             => null : object
+
     //| TypeConversion(_, tt, _)         =>      // { mutable expr : TExpr; target_type : TyVar; kind : ConversionKind; }
 //
       //if (tt.IsFixed)
@@ -150,7 +153,6 @@
     //| PropertyMember   (_, o : object)         // { obj : TExpr; prop : IProperty; }
     //| HasType          (_, o : object)         // { expr : TExpr; test_ty : MType; }
     //| TypeOf              (o : object) => o    // { target_type : TyVar; }
-    | _                                => null : object
     }
 
     TFinder(info : ExprWalkInfo) : void

Modified: vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/ExprWalkInfo.n
==============================================================================
--- vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/ExprWalkInfo.n	(original)
+++ vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/ExprWalkInfo.n	Tue Feb 13 18:28:26 2007
@@ -78,6 +78,8 @@
     {
       IsStopped = true;
 #if PRINT_AST && DEBUG
+      for (mutable i = 0; i < Nodes.Length; i++)
+        Debug.Write("  ");
       Debug.WriteLine("Stopped!");
 #endif
     }
@@ -86,6 +88,8 @@
     {
       Node = null;
 #if PRINT_AST && DEBUG
+      for (mutable i = 0; i < Nodes.Length; i++)
+        Debug.Write("  ");
       Debug.WriteLine("Skipped!");
 #endif
     }