[svn] r6558: nemerle/trunk/ncc: hierarchy/ClassMembers.n testsuite/positive/tuples.n

[nazgul]

Log:
Fix untupling of parameter

Author: nazgul
Date: Sat Aug 19 19:36:39 2006
New Revision: 6558

Modified:
   nemerle/trunk/ncc/hierarchy/ClassMembers.n
   nemerle/trunk/ncc/testsuite/positive/tuples.n

Modified: nemerle/trunk/ncc/hierarchy/ClassMembers.n
==============================================================================
--- nemerle/trunk/ncc/hierarchy/ClassMembers.n	(original)
+++ nemerle/trunk/ncc/hierarchy/ClassMembers.n	Sat Aug 19 19:36:39 2006
@@ -818,9 +818,9 @@
             PT.PExpr.Ref (PT.Name (fp.name))
           });
           match (fun_body) {
-            | FunBody.Parsed (body) =>
-              fun_body = FunBody.Parsed (<[ { def $(parm.ParsedName : name) =
-                ( .. $refs ); $body } ]>)
+            | FunBody.Parsed (<[ { .. $bodys } ]> as _body)
+            | FunBody.Parsed (_body) with bodys = [_body] =>
+              fun_body = FunBody.Parsed (PT.PExpr.Sequence (_body.Location, <[ def $(parm.ParsedName : name) = ( .. $refs ); ]> :: bodys))
             | _ => Util.ice ()
           };
           parms

Modified: nemerle/trunk/ncc/testsuite/positive/tuples.n
==============================================================================
--- nemerle/trunk/ncc/testsuite/positive/tuples.n	(original)
+++ nemerle/trunk/ncc/testsuite/positive/tuples.n	Sat Aug 19 19:36:39 2006
@@ -28,6 +28,18 @@
  }
 
 
+[Record]
+class NonEmptyCtor {
+  public foo : int;
+}
+
+class UntupledCtorBaseCall : NonEmptyCtor  {
+  public this (p : int * string) {
+     base (p[0]);
+  }
+}
+ 
+
 module M {
 
   public Main () : void {