[svn] r6647: vs-plugin/trunk/Nemerle.Compiler.Utils: Nemerle.Completion2/CodeModel/Project.Type.n Utils.n

[VladD2]

Log:
Simple refactoring.

Author: VladD2
Date: Wed Sep 13 14:28:14 2006
New Revision: 6647

Modified:
   vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/Project.Type.n
   vs-plugin/trunk/Nemerle.Compiler.Utils/Utils.n

Modified: vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/Project.Type.n
==============================================================================
--- vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/Project.Type.n	(original)
+++ vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/Project.Type.n	Wed Sep 13 14:28:14 2006
@@ -106,7 +106,7 @@
             }
           }
           else
-            (Location(), null, false);
+            (Location.Default, null, false);
 
           if (tBody != null)
           {
@@ -121,7 +121,7 @@
             }
           }
           else
-            (Location(), null)
+            (Location.Default, null)
         }
         else
         {
@@ -137,12 +137,12 @@
             //array(0); // completion outside body (try conplete types)
           }
           */
-          (Location(), null)
+          (Location.Default, null)
         }
 
       | fb is FieldBuilder    => (fb.Location, fb)
       | pb is PropertyBuilder => (pb.Location, pb)
-      | null                  => (Location(), null)
+      | null                  => (Location.Default, null)
       | _                     =>
         Trace.Assert(false, $"Unknown member type '$member'.");
         throw System.Exception($"Unknown member type '$member'.");

Modified: vs-plugin/trunk/Nemerle.Compiler.Utils/Utils.n
==============================================================================
--- vs-plugin/trunk/Nemerle.Compiler.Utils/Utils.n	(original)
+++ vs-plugin/trunk/Nemerle.Compiler.Utils/Utils.n	Wed Sep 13 14:28:14 2006
@@ -210,9 +210,9 @@
 
       match (members)
       {
-      | [m]       => (m)
-      | []        => (null)
-      | m :: tail => (tail.FindWithDefault(m, predicate))
+      | [m]       => m
+      | []        => null
+      | m :: tail => tail.FindWithDefault(m, predicate)
       }
     }