[hcoop/debian/mlton.git] / regression / callcc.sml

open MLton.Cont
   
val _ = print(Int.toString(1 + callcc(fn k => throw(k, 2))))
val _ = print "\n"
Commit	Line	Data
7f918cf1 CE	1	open MLton.Cont
	2
	3	val _ = print(Int.toString(1 + callcc(fn k => throw(k, 2))))
	4	val _ = print "\n"