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

fun loop (left: IntInf.int): unit =
        case IntInf.compare (left, 4294967296) of
        LESS => ()
        | EQUAL => ()
        | GREATER => loop (left + ~1)

val _ = loop 4304967296

val _ = print "All ok\n"
Commit	Line	Data
7f918cf1 CE	1	fun loop (left: IntInf.int): unit =
	2	case IntInf.compare (left, 4294967296) of
	3	LESS => ()
	4	\| EQUAL => ()
	5	\| GREATER => loop (left + ~1)
	6
	7	val _ = loop 4304967296
	8
	9	val _ = print "All ok\n"