Commit e16f23b8 authored by Andrei Paskevich's avatar Andrei Paskevich
Browse files

Typing: if an rsymbol is not found, look for an lsymbol instead

This reverts the enforcing part of a44cccbb.
parent 3f77244e
...@@ -589,7 +589,9 @@ let rec dexpr muc denv {expr_desc = desc; expr_loc = loc} = ...@@ -589,7 +589,9 @@ let rec dexpr muc denv {expr_desc = desc; expr_loc = loc} =
DEapp (Dexpr.dexpr ~loc e1, e2)) e el DEapp (Dexpr.dexpr ~loc e1, e2)) e el
in in
let qualid_app loc q el = let qualid_app loc q el =
expr_app loc (DEsym (find_prog_symbol muc q)) el let e = try DEsym (find_prog_symbol muc q) with
| _ -> DEls_pure (find_lsymbol muc.muc_theory q) in
expr_app loc e el
in in
let qualid_app loc q el = match q with let qualid_app loc q el = match q with
| Qident {id_str = n} -> | Qident {id_str = n} ->
...@@ -600,8 +602,8 @@ let rec dexpr muc denv {expr_desc = desc; expr_loc = loc} = ...@@ -600,8 +602,8 @@ let rec dexpr muc denv {expr_desc = desc; expr_loc = loc} =
in in
let qualid_app_pure loc q el = let qualid_app_pure loc q el =
let e = match find_global_pv muc q with let e = match find_global_pv muc q with
| None -> DEls_pure (find_lsymbol muc.muc_theory q) | Some v -> DEpv_pure v
| Some v -> DEpv_pure v in | None -> DEls_pure (find_lsymbol muc.muc_theory q) in
expr_app loc e el expr_app loc e el
in in
let qualid_app_pure loc q el = match q with let qualid_app_pure loc q el = match q with
......
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