Commit 9e660415 authored by Andrei Paskevich's avatar Andrei Paskevich

why3extract: suppress a compilation warning

parent adcea649
......@@ -656,7 +656,6 @@ and k_fun env lps ?(oldies=Mpv.empty) ?(xmap=Mexn.empty) cty e =
let k = Mexn.fold (fun _ ((i,_), xq) k ->
Kseq (k, i, Kstop xq)) xq k in
(* move the postconditions under the VCgen tag *)
(* FIXME: VCgen labels should not be pushed under proxy let *)
let k = if Slab.mem sp_label e.e_label then Ktag (SP, k) else
if Slab.mem wp_label e.e_label then Ktag (WP, k) else k in
let k = bind_oldies oldies (bind_oldies cty.cty_oldies k) in
......
......@@ -138,7 +138,7 @@ let test_extract fmt m =
let rec do_extract_module ?fname m =
test_extract (Format.formatter_of_out_channel stdout) m;
let extract_use m' =
let _extract_use m' =
let fname =
if m'.mod_theory.Theory.th_path = [] then fname else None
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