modern-compiler-ml/tiger/testcases/test3.tig

9 lines
180 B
Text
Raw Normal View History

/* 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