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

fun f x = x + 1
fun g x = x + 2

val _  =
   if MLton.eq (f, g)
      then print "yes\n"
   else print "no\n"
Commit	Line	Data
7f918cf1 CE	1	fun f x = x + 1
	2	fun g x = x + 2
	3
	4	val _ =
	5	if MLton.eq (f, g)
	6	then print "yes\n"
	7	else print "no\n"