[svn] r7808: nemerle/trunk/ncc/hierarchy/ClassMembers.n

[divan]

Log:
Print constructor as "constructor A..ctor() : A", not "... : void".

Author: divan
Date: Mon Oct 15 20:53:50 2007
New Revision: 7808

Modified:
   nemerle/trunk/ncc/hierarchy/ClassMembers.n

Modified: nemerle/trunk/ncc/hierarchy/ClassMembers.n
==============================================================================
--- nemerle/trunk/ncc/hierarchy/ClassMembers.n	(original)
+++ nemerle/trunk/ncc/hierarchy/ClassMembers.n	Mon Oct 15 20:53:50 2007
@@ -287,7 +287,12 @@
             else
               List.Map (m.GetParameters (), describeParm);
 
-          def ret_ty = m.ReturnType.ToString ();
+          def ret_ty =
+            if (m.MemberKind == MemberKinds.Constructor)
+              m.DeclaringType.ToString ()
+            else
+              m.ReturnType.ToString ();
+
           kind + " " + full_name + "(" + NString.Concat (", ", parms) + ") : " + ret_ty
 
         | prop is PropertyBuilder =>