Commit c854f2d9 authored by Jean-Christophe Filliâtre's avatar Jean-Christophe Filliâtre
Browse files

fixed bug #14190

parent 016edab9
......@@ -2188,9 +2188,11 @@ let add_types uc dl =
| Ty.Tyapp (ts, tyl) ->
let y = ts.ts_name.id_string in
let n =
(**
if Mstr.mem y def then begin
visit y; of_option (Hashtbl.find nregions y)
end else
**)
(get_mtsymbol ts).mt_regions
in
let rl = regions_tyapp ts n tyl in
......
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