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

fun loop (left: IntInf.int): unit =
        if left = 0
           then ()
           else loop (left + ~1)

val _ = loop 100000000

val _ = print "All ok\n"
Commit	Line	Data
7f918cf1 CE	1	fun loop (left: IntInf.int): unit =
	2	if left = 0
	3	then ()
	4	else loop (left + ~1)
	5
	6	val _ = loop 100000000
	7
	8	val _ = print "All ok\n"