diff options
| author | Alex Auvolat <alex.auvolat@ansys.com> | 2014-06-18 15:31:03 +0200 |
|---|---|---|
| committer | Alex Auvolat <alex.auvolat@ansys.com> | 2014-06-18 15:31:03 +0200 |
| commit | 43487d3baf695875482454ade1bdbc1403bfaaf6 (patch) | |
| tree | 3718a44913fc1544d7ddfbe5fdb5d909e162ca9b /frontend | |
| parent | 0caa1ebe947646459295c6a66da6bf19f399c21e (diff) | |
| download | scade-analyzer-43487d3baf695875482454ade1bdbc1403bfaaf6.tar.gz scade-analyzer-43487d3baf695875482454ade1bdbc1403bfaaf6.zip | |
Add gilbreath suite ; booleans are not represented in a good way.
Diffstat (limited to 'frontend')
| -rw-r--r-- | frontend/ast_printer.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/frontend/ast_printer.ml b/frontend/ast_printer.ml index c14d0d1..3ac881e 100644 --- a/frontend/ast_printer.ml +++ b/frontend/ast_printer.ml @@ -72,7 +72,7 @@ let print_list f sep fmt l = let rec aux = function | [] -> () | [a] -> f fmt a - | a::b -> f fmt a; Format.pp_print_string fmt sep; aux b + | a::b -> f fmt a; Format.fprintf fmt "%s@," sep; aux b in aux l |