diff options
| author | Gaëtan Gilbert | 2020-07-02 15:29:05 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-07-02 15:29:05 +0200 |
| commit | 140f935ef271cbeb555a4a7e2015ee9a778ad394 (patch) | |
| tree | 3c3c346c6c09c18ddad4309fd9b5775a96841ff7 /dev | |
| parent | a1835c755f07b2199d122632360a5d236cd9984e (diff) | |
Fix debug printer for auctx in presence of Anonymous
Diffstat (limited to 'dev')
| -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)) |