Import Upstream version 20180207

[hcoop/debian/mlton.git] / regression / fail / infix.1.sml

(* error *)
local
   fun _ f _ = ()
in
end

(* error *)
local
   fun (_ f _) = ()
in
end

(* error *)
local
   fun (_ f _) _ = ()
in
end

infix && ||

(* error *)
local
   fun && x = ()
in
end

(* error *)
local
   fun x && = ()
in
end

(* error *)
local
   fun && || = ()
in
end

(* error *)
local
   fun || && = ()
in
end