Commit aec6676f authored by Andrei Paskevich's avatar Andrei Paskevich

Encoding_select: fix a silly mistake

parent 3af28b7a
......@@ -90,7 +90,7 @@ module Lsinst = struct
let add_lsinst mls ls tyl tyv =
if ls_equal ls ps_equ ||
List.for_all ty_closed (oty_cons ls.ls_args ls.ls_value) &&
List.for_all ty_closed (oty_cons ls.ls_args ls.ls_value) ||
List.exists (fun ty -> not (ty_closed ty)) (oty_cons tyl tyv)
then mls else Lsmap.add ls tyl tyv mls
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment