HCoop / hcoop / debian / mlton.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Backport from sid to buster
[hcoop/debian/mlton.git] / regression / callcc.sml
1 open MLton.Cont
2
3 val _ = print(Int.toString(1 + callcc(fn k => throw(k, 2))))
4 val _ = print "\n"
mlton packaging