Expose option module to the rest of the program
[tiger.ml.git] / compiler / testcases / test05.tig
CommitLineData
38ffcb1f
SK
1/* define valid recursive types */
2let
3/* define a list */
4type intlist = {hd: int, tl: intlist}
5
6/* define a tree */
7type tree ={key: int, children: treelist}
8type treelist = {hd: tree, tl: treelist}
9
10var lis:intlist := intlist { hd=0, tl= nil }
11
12in
13 lis
14end
This page took 0.04181 seconds and 4 git commands to generate.