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

fun f l =
   case l of
      [] => f l
    | _ :: l => f l
   
val _ = f [13]
Commit	Line	Data
7f918cf1 CE	1	fun f l =
	2	case l of
	3	[] => f l
	4	\| _ :: l => f l
	5
	6	val _ = f [13]