[svn] r6191: nemerle/trunk/ncc: testsuite/positive/macrolib.n testsuite/positive/macroprog.n typing/Macros...

[nazgul]

Log:
Fix color generation when generic parameter declaration is quoted

Author: nazgul
Date: Tue Apr 11 22:01:03 2006
New Revision: 6191

Modified:
   nemerle/trunk/ncc/testsuite/positive/macrolib.n
   nemerle/trunk/ncc/testsuite/positive/macroprog.n
   nemerle/trunk/ncc/typing/Macros.n

Modified: nemerle/trunk/ncc/testsuite/positive/macrolib.n
==============================================================================
--- nemerle/trunk/ncc/testsuite/positive/macrolib.n	(original)
+++ nemerle/trunk/ncc/testsuite/positive/macrolib.n	Tue Apr 11 22:01:03 2006
@@ -349,6 +349,14 @@
   ]>);
   t.Compile();
   
+  def t = ctx.Env.Define(<[ decl:
+    public class GenericGeneratedClass['a]
+    {
+      public this(_value : 'a) {}
+    }
+  ]>);
+  t.Compile();
+  
   <[ () ]>
 }
 

Modified: nemerle/trunk/ncc/testsuite/positive/macroprog.n
==============================================================================
--- nemerle/trunk/ncc/testsuite/positive/macroprog.n	(original)
+++ nemerle/trunk/ncc/testsuite/positive/macroprog.n	Tue Apr 11 22:01:03 2006
@@ -68,6 +68,7 @@
     assert (inline_meta (2, "a").Y == "a");
     
     _ = null : IEmpty;
+    _ = GenericGeneratedClass(1);
     
     System.Console.WriteLine (ulongLiteral ());
   }

Modified: nemerle/trunk/ncc/typing/Macros.n
==============================================================================
--- nemerle/trunk/ncc/typing/Macros.n	(original)
+++ nemerle/trunk/ncc/typing/Macros.n	Tue Apr 11 22:01:03 2006
@@ -256,8 +256,8 @@
   quoted_tparms (tyvars : list [string * int], 
                  constraints : list [Constraint]) : PExpr 
   {
-    def quoted_tvar (name, color) {
-      <[ ( $(name : string), $(color : int) ) ]>
+    def quoted_tvar (name, _) {
+      <[ ( $(name : string), MacroColorizer.Color ) ]>
     }
     def quoted_constr (c : Constraint) {
       def (name, color) = c.tyvar;