[svn] r6907: nemerle/trunk/ncc/parsing/ParseTree.n

[VladD2]

Log:
Add ToString() implementation to MatchCase class.

Author: VladD2
Date: Thu Nov 16 04:42:12 2006
New Revision: 6907

Modified:
   nemerle/trunk/ncc/parsing/ParseTree.n

Modified: nemerle/trunk/ncc/parsing/ParseTree.n
==============================================================================
--- nemerle/trunk/ncc/parsing/ParseTree.n	(original)
+++ nemerle/trunk/ncc/parsing/ParseTree.n	Thu Nov 16 04:42:12 2006
@@ -515,6 +515,11 @@
     public patterns : list [PExpr];
     public body : PExpr;
     public mutable disable_warnings : bool;
+
+    public override ToString () : string
+    {
+      $"| $(patterns.ToString(\" | \")) => $body"
+    }
   }
 
   [Record]