[hcoop/debian/mlton.git] / doc / examples / save-world / save-world.sml

open MLton.World

val _ =
   case save "world" of
      Original => print "I am the original\n"
    | Clone => print "I am the clone\n"
Commit	Line	Data
7f918cf1 CE	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"