diff options
| author | Alex Auvolat <alex.auvolat@ansys.com> | 2014-06-25 16:55:43 +0200 |
|---|---|---|
| committer | Alex Auvolat <alex.auvolat@ansys.com> | 2014-06-25 16:55:43 +0200 |
| commit | e16f965b88efa1ba7872ced9fed627361c5c2c9e (patch) | |
| tree | 2beafe42b393b2d02ee94cb393ff736b4db33935 /frontend | |
| parent | 255ec4a98d329d021dbc86ca81a59d562efaa8d1 (diff) | |
| download | scade-analyzer-e16f965b88efa1ba7872ced9fed627361c5c2c9e.tar.gz scade-analyzer-e16f965b88efa1ba7872ced9fed627361c5c2c9e.zip | |
Begin implementation of EDD ; SCA implemented.
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 |