fix oversight in lustre_pp.ml

This commit is contained in:
Antoine Grimod 2023-01-10 00:28:41 +01:00
parent b0545a2733
commit 17e2f93629

View File

@ -160,6 +160,7 @@ and pp_nexts fmt: t_expression list * string list -> unit = function
pp_expression e pp_expression e
n n
pp_nexts (exprs, nexts) pp_nexts (exprs, nexts)
| _, _ -> () (*This should never happen*)
and pp_translist fmt: t_state list -> unit = function and pp_translist fmt: t_state list -> unit = function
| [] -> () | [] -> ()