diff options
| author | Maxime Dénès | 2020-08-28 16:39:18 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2020-08-28 17:24:59 +0200 |
| commit | d1dc6347fb9aa0659f8a8e824c33937d6bfb6e3e (patch) | |
| tree | 18edfe7faf45f41a71845ee8d3f9ae90257e3a93 /engine/termops.ml | |
| parent | 911f33f0a0ff648082d329841388f59e8cecf231 (diff) | |
Enrich `evar_map` printer with future goals stack
This is a useful for debugging.
Diffstat (limited to 'engine/termops.ml')
| -rw-r--r-- | engine/termops.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/engine/termops.ml b/engine/termops.ml index e5231ef9cd..7579631313 100644 --- a/engine/termops.ml +++ b/engine/termops.ml @@ -301,8 +301,10 @@ let pr_evar_map_gen with_univs pr_evars env sigma = if List.is_empty (Evd.meta_list sigma) then mt () else str "METAS:" ++ brk (0, 1) ++ pr_meta_map env sigma + and future_goals = + str "FUTURE GOALS STACK:" ++ brk (0, 1) ++ Evd.pr_future_goals_stack sigma ++ fnl () in - evs ++ svs ++ cstrs ++ typeclasses ++ obligations ++ metas + evs ++ svs ++ cstrs ++ typeclasses ++ obligations ++ metas ++ future_goals let pr_evar_list env sigma l = let open Evd in |