HCoop / hcoop / debian / mlton.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Import Upstream version 20180207
[hcoop/debian/mlton.git] / regression / grow-raise.sml
1 exception E
2 val rec loop =
3 fn 0 => raise E
4 | n => 1 + loop(n - 1)
5
6 val _ = loop 1000000 handle E => 13
mlton packaging