[svn] r6069: nemerle/trunk: macros/DesignPatterns.n snippets/designpatt/proxy-p.n snippets/designpatt/sing...

[nazgul]

Log:
Ommit generic methods in ProxyDesignPattern

Author: nazgul
Date: Sat Jan 21 15:57:17 2006
New Revision: 6069

Modified:
   nemerle/trunk/macros/DesignPatterns.n
   nemerle/trunk/snippets/designpatt/proxy-p.n
   nemerle/trunk/snippets/designpatt/singleton-m.n

Modified: nemerle/trunk/macros/DesignPatterns.n
==============================================================================
--- nemerle/trunk/macros/DesignPatterns.n	(original)
+++ nemerle/trunk/macros/DesignPatterns.n	Sat Jan 21 15:57:17 2006
@@ -47,7 +47,8 @@
       match (mem) {
         | meth is IMethod
           // we must avoid property method here, a little bit hacking solution
-          when meth.Attributes & NemerleAttributes.SpecialName == 0 =>
+          when meth.Attributes & NemerleAttributes.SpecialName == 0 &&
+               meth.GetHeader().typarms.Length == 0 =>
       
           // prepare method invocation parameters
           def parms = meth.GetParameters ().Map(fun (p) {

Modified: nemerle/trunk/snippets/designpatt/proxy-p.n
==============================================================================
--- nemerle/trunk/snippets/designpatt/proxy-p.n	(original)
+++ nemerle/trunk/snippets/designpatt/proxy-p.n	Sat Jan 21 15:57:17 2006
@@ -60,6 +60,8 @@
   public Fire (_x : int) : void {
   }
   public Gene (x : 'a) : 'a { x }
+  
+  public Gene ['a] (x : 'a) : 'a { x }
 }
 
 [Record]

Modified: nemerle/trunk/snippets/designpatt/singleton-m.n
==============================================================================
--- nemerle/trunk/snippets/designpatt/singleton-m.n	(original)
+++ nemerle/trunk/snippets/designpatt/singleton-m.n	Sat Jan 21 15:57:17 2006
@@ -25,7 +25,7 @@
               <[ $(x.ParsedName : name) ]>
             });
             
-            // first define the filed, where a single instance will be stored
+            // first define the field, where a single instance will be stored
             t.Define (<[ decl:
               private static mutable instance : $(t.ParsedName : name);
             ]>);