diff options
Diffstat (limited to 'abstract/abs_interp.ml')
| -rw-r--r-- | abstract/abs_interp.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/abstract/abs_interp.ml b/abstract/abs_interp.ml index f526095..bed2f2c 100644 --- a/abstract/abs_interp.ml +++ b/abstract/abs_interp.ml @@ -233,7 +233,7 @@ end = struct *) let init_state opt rp = Format.printf "Vars: @[<hov>%a@]@.@." - (Ast_printer.print_list Ast_printer.print_typed_var ", ") + (print_list Ast_printer.print_typed_var ", ") rp.all_vars; let enum_vars = List.fold_left @@ -390,7 +390,7 @@ end = struct incr n_ch_iter; Format.printf "Chaotic iteration %d: @[<hov>[%a]@]@." !n_ch_iter - (Ast_printer.print_list Formula_printer.print_id ", ") case; + (print_list Formula_printer.print_id ", ") case; let start = try Hashtbl.find st.env case with Not_found -> assert false in let start_dd = dd_singleton st.d_vars start in @@ -465,11 +465,11 @@ end = struct Format.printf "%a" ND.print_itv (ND.project num id) | TEnum _ -> Format.printf "@[<hov>{ %a }@]" - (Ast_printer.print_list Formula_printer.print_id ", ") + (print_list Formula_printer.print_id ", ") (ED.project enum id) end; Format.printf " when @[<hov>[%a]@]@ " - (Ast_printer.print_list Formula_printer.print_id ", ") case) + (print_list Formula_printer.print_id ", ") case) final.data; Format.printf "@]@ " end) |