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

fun f c =
   case c of
      #"a" => ()
    | _ => raise Fail "bug"

val _ = f #"a"
val _ = f #"a"
Commit	Line	Data
7f918cf1 CE	1	fun f c =
	2	case c of
	3	#"a" => ()
	4	\| _ => raise Fail "bug"
	5
	6	val _ = f #"a"
	7	val _ = f #"a"
	8
	9