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

structure S:
   sig
      val f: 'a -> 'a list
   end =
   struct
      fun f x =
         if x = x
            then []
         else [x]
   end
Commit	Line	Data
7f918cf1 CE	1	structure S:
	2	sig
	3	val f: 'a -> 'a list
	4	end =
	5	struct
	6	fun f x =
	7	if x = x
	8	then []
	9	else [x]
	10	end