Import Debian changes 20180207-1
[hcoop/debian/mlton.git] / regression / 23.sml
1 fun f l =
2 case l of
3 [] => f l
4 | _ :: l => f l
5
6 val _ = f [13]