diff options
| author | Emilio Jesus Gallego Arias | 2020-07-02 17:43:42 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-07-02 17:43:42 +0200 |
| commit | ce500b3483bbc80ee8baee3b255c3b09b5b2b17e (patch) | |
| tree | c6f56426ed5518013ecdb686226fca21af10ec8d /dev/top_printers.ml | |
| parent | ce1d4079a13c0512a85a1813101e9393d8d28a26 (diff) | |
| parent | 140f935ef271cbeb555a4a7e2015ee9a778ad394 (diff) | |
Merge PR #12628: Fix debug printer for auctx in presence of Anonymous
Reviewed-by: ejgallego
Diffstat (limited to 'dev/top_printers.ml')
| -rw-r--r-- | dev/top_printers.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index f14edec639..34110f96cf 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -238,7 +238,9 @@ let ppnamedcontextval e = let ppaucontext auctx = let nas = AUContext.names auctx in let prlev l = match Level.var_index l with - | Some n -> Name.print nas.(n) + | Some n -> (match nas.(n) with + | Anonymous -> prlev l + | Name id -> Id.print id) | None -> prlev l in pp (pr_universe_context prlev (AUContext.repr auctx)) |