Commit 53c1a2d0 authored by Andrei Paskevich's avatar Andrei Paskevich
Browse files

localize logical expressions in programs

parent 40805deb
......@@ -174,10 +174,8 @@ let parse_string f loc s =
reloc loc lb;
f lb
let logic_lexpr ((pos, _) as loc, s) =
let e = parse_string Lexer.parse_lexpr pos s in
let lab = Ident.label ~loc "annotation" in
{ e with Ptree.pp_desc = Ptree.PPnamed (lab, e) }
let logic_lexpr ((pos, _), s) =
parse_string Lexer.parse_lexpr pos s
let logic_decls ((loc, _), s) e env =
let parse = Lexer.parse_list0_decl e Mnm.empty env.uc in
......
......@@ -203,8 +203,8 @@ let deffect env e =
List.map (fun id -> let ls,_,_ = dexception env id in ls)
e.Pgm_ptree.pe_raises; }
let dterm env l = Typing.dterm env (Pgm_env.logic_lexpr l)
let dfmla env l = Typing.dfmla env (Pgm_env.logic_lexpr l)
let dterm env l = Typing.dterm ~localize:true env (Pgm_env.logic_lexpr l)
let dfmla env l = Typing.dfmla ~localize:true env (Pgm_env.logic_lexpr l)
let dpost env ty (q, ql) =
let dexn (id, l) =
......
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