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

fun die(): 'a =
   let exception Die
   in raise Die
   end

val _ =
   let val _: string = die()
      val _: real = die()
      val _: bool = die()
   in ()
   end handle _ => ()
Commit	Line	Data
7f918cf1 CE	1	fun die(): 'a =
	2	let exception Die
	3	in raise Die
	4	end
	5
	6	val _ =
	7	let val _: string = die()
	8	val _: real = die()
	9	val _: bool = die()
	10	in ()
	11	end handle _ => ()