Import Upstream version 20180207

[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 ()