[svn] r6371: nemerle/trunk/ncc/testsuite/completion-playground/compl3.n

[trupill]

Log:
Some cosmetic changes to compl3.n


Author: trupill
Date: Tue Jun  6 15:48:42 2006
New Revision: 6371

Modified:
   nemerle/trunk/ncc/testsuite/completion-playground/compl3.n

Modified: nemerle/trunk/ncc/testsuite/completion-playground/compl3.n
==============================================================================
--- nemerle/trunk/ncc/testsuite/completion-playground/compl3.n	(original)
+++ nemerle/trunk/ncc/testsuite/completion-playground/compl3.n	Tue Jun  6 15:48:42 2006
@@ -31,18 +31,17 @@
 // mutable the_method = null;
 
 mutable count = 0;
+mutable completionMember : IMethod;
 
-def loop (x) : IMember
+def loop (x)
 {
-  mutable completionMember;
-
   foreach (node in x.Children.Values)
   {
     count++;
     //WriteLine (node.Name.ToString("."));
     match (node.Value)
     {
-      | NamespaceReference => completionMember = loop (node);
+      | NamespaceReference => loop (node);
       | Cached(tycon)      =>
           match (tycon)
           { | tb is TypeBuilder =>
@@ -70,16 +69,14 @@
       | _                  => ()
     }
   }
-
-  completionMember;
 }
 
 WriteLine ("Found types\n===========");
-def completionMember = loop (type_tree);
+loop (type_tree);
 WriteLine ($"\n $count types found \n===========");
 
 WriteLine ("\n================================================");
-WriteLine ($" Completion member: $completionMember");
+WriteLine ($" Completion member: $(completionMember.Name)");
 
 def try_completion (body)
 {