[tiger.ml.git] / compiler / testcases / test03.tig

/* a record type and a record variable */
let
	type  rectype = {name:string, age:int}
	var rec1:rectype := rectype {name="Nobody", age=1000}
in
	rec1.name := "Somebody";
	rec1
end
Commit	Line	Data
	1	/* a record type and a record variable */
	2	let
	3	type rectype = {name:string, age:int}
	4	var rec1:rectype := rectype {name="Nobody", age=1000}
	5	in
	6	rec1.name := "Somebody";
	7	rec1
	8	end