tiger-compiler/tests/llvmtranslate/simple_record.tig


1
2
3
4
5
6
7
8
9

/* a record type and a record variable */
let
  type  rectype = {name : string, age : int}
  var rec1 : rectype := rectype {name="Nobody", age=1000}
in
  rec1.age := 40;
  rec1.name := "Somebody";
  rec1
end