[svn] r7065: nemerle/trunk/ncc/generation/Typer3.n

[nazgul]

Log:
Emit sealed for compiler generated apply functions. No idea if it matters, but it doesn't hurt

Author: nazgul
Date: Wed Dec  6 20:54:45 2006
New Revision: 7065

Modified:
   nemerle/trunk/ncc/generation/Typer3.n

Modified: nemerle/trunk/ncc/generation/Typer3.n
==============================================================================
--- nemerle/trunk/ncc/generation/Typer3.n	(original)
+++ nemerle/trunk/ncc/generation/Typer3.n	Wed Dec  6 20:54:45 2006
@@ -571,7 +571,7 @@
             "apply_void" else "apply";
         
         builder.Define (<[ decl:
-          public override $(apply_name : dyn) (.. $formal_parms) : $(fix_type (ret_type) : typed)
+          public override sealed $(apply_name : dyn) (.. $formal_parms) : $(fix_type (ret_type) : typed)
           {
             $(new_ref : typed) (.. $parm_refs)
           }
@@ -1253,7 +1253,7 @@
       def builder = CurrentType.DefineNestedType (<[ decl:
         private sealed class $(lambda_name : name) : $(lambda_base_type : typed)
         {
-          public override $(apply_name : dyn) (.. $formal_parms) : $(fix_type (ret_type) : typed)
+          public override sealed $(apply_name : dyn) (.. $formal_parms) : $(fix_type (ret_type) : typed)
           {
           }
         }