Benjamin_Loison/Synchronous_reactive_systems
1
0
Fork 0
Code Issues 7 Pull Requests Packages Projects Releases Wiki Activity

[lustre_pp] fix a typing error

Browse Source
This commit is contained in:
Arnaud DABY-SEESARAM 2022-12-20 14:04:50 +01:00
parent 3ad133344a
commit c7edb27fb0
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/lustre_pp.ml
View File

@ -45,11 +45,12 @@ let pp_expression =
let rec pp_expression_list prefix fmt exprs = let rec pp_expression_list prefix fmt exprs =
match exprs with match exprs with
| ETuple([], []) -> () | ETuple([], []) -> ()
| ETuple (_ :: tt, expr :: exprs) -> | ETuple (typs, expr :: exprs) ->
let typ_h, typ_t =
Utils.list_select (List.length (Utils.type_exp expr)) typs in
Format.fprintf fmt "%a%a" Format.fprintf fmt "%a%a"
(pp_expression_aux (prefix^" |> ")) expr (pp_expression_aux (prefix^" |> ")) expr
(pp_expression_list prefix) (ETuple (tt, exprs)) (pp_expression_list prefix) (ETuple (typ_t, exprs))
| ETuple ([], _) -> failwith "A non-empty tuple has no type!"
| ETuple (_, []) -> failwith "An empty tuple has a type!" | ETuple (_, []) -> failwith "An empty tuple has a type!"
| _ -> failwith "This exception should never occur." | _ -> failwith "This exception should never occur."
in in