Commit 84e9bf4c authored by Andrei Paskevich's avatar Andrei Paskevich

add missing forget_var's in printers

parent e7aa3e10
......@@ -258,7 +258,8 @@ let print_logic_decl info fmt (ls,ld) =
(print_lsargs info) ls.ls_args
(print_type_value info) ls.ls_value
(print_var_list info) vsl
(print_expr info) expr
(print_expr info) expr;
List.iter forget_var vsl
let print_logic_decl info fmt d =
if Sid.mem (fst d).ls_name info.info_rem then
......
......@@ -261,7 +261,8 @@ let print_logic_decl info fmt (ls,ld) =
print_ident ls.ls_name
(print_var_list info) vsl
(print_type_value info) ls.ls_value
(print_expr info) expr
(print_expr info) expr;
List.iter forget_var vsl
let print_logic_decl info fmt d =
if Sid.mem (fst d).ls_name info.info_rem then
......
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