diff options
Diffstat (limited to 'frontend')
| -rw-r--r-- | frontend/ast_printer.ml | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/frontend/ast_printer.ml b/frontend/ast_printer.ml index b6c06fb..9a4d62d 100644 --- a/frontend/ast_printer.ml +++ b/frontend/ast_printer.ml @@ -1,6 +1,7 @@ open Ast open Lexing open Typing +open Util (* Locations *) @@ -69,14 +70,6 @@ let expr_precedence = function (* utility *) -let print_list f sep fmt l = - let rec aux = function - | [] -> () - | [a] -> f fmt a - | a::b -> f fmt a; Format.fprintf fmt "%s@," sep; aux b - in - aux l - let print_id_ext fmt (i, _) = Format.pp_print_string fmt i |