HCoop / hcoop / debian / mlton.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Import Debian changes 20180207-1
[hcoop/debian/mlton.git] / regression / 2.sml
1 datatype t = A | B
2
3 val f =
4 fn A => 1
5 | B => 2
6
7 val _ = f(raise Overflow)
8 val _ = f(raise Bind)
mlton packaging