heptagon/test/good/t9.ept

(* pour debugger
   set arguments -v test/good/t9.ept *)

node f(x,z:int) returns (o1,o2:int)
  let
    switch (x = z)
      | true var o12: int; o22: int;
             do (o12, o22) = (1, 2); o1 = o12; o2 = o22;
      | false do (o2, o1) = (3, 3);
    end
  tel
Add lib/pervasives.epi, tests, tools 2010-06-21 12:11:06 +02:00			`(* pour debugger`
			`set arguments -v test/good/t9.ept *)`

			`node f(x,z:int) returns (o1,o2:int)`
			`let`
			`switch (x = z)`
Recursives Qualnames. In order to have a correct handling of inner classes in Java, and to prepare for modules inside modules. 2011-02-07 14:24:17 +01:00			`\| true var o12: int; o22: int;`
			`do (o12, o22) = (1, 2); o1 = o12; o2 = o22;`
Add lib/pervasives.epi, tests, tools 2010-06-21 12:11:06 +02:00			`\| false do (o2, o1) = (3, 3);`
			`end`
			`tel`