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

fun plus (a, b) = a
   
functor F () =
   struct
      val _ = plus (plus (1, 2), 3)
   end

infix plus

structure S = F ()
Commit	Line	Data
7f918cf1 CE	1	fun plus (a, b) = a
	2
	3	functor F () =
	4	struct
	5	val _ = plus (plus (1, 2), 3)
	6	end
	7
	8	infix plus
	9
	10	structure S = F ()