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] / doc / examples / save-world / save-world.sml
1 open MLton.World
2
3 val _ =
4 case save "world" of
5 Original => print "I am the original\n"
6 | Clone => print "I am the clone\n"
mlton packaging