diff options
| author | Pierre-Marie Pédrot | 2019-12-12 18:44:06 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-12-22 14:03:06 +0100 |
| commit | c2341feb58a233598658eeb68a08395b12715b2a (patch) | |
| tree | ba5d4caa869298be94beda0e40767107814954b3 /dev | |
| parent | 1de15982dceaf28740f49f1d6cba61a5473656b0 (diff) | |
Remove the hacks relying on hardwired libobject tags.
The patch is done in a minimal way. The hacks are turned into a new kind of
safer hacks, but hacks nonetheless. They should go away at some point, but
the current patch is focussed on the removal of Libobject cruft, not making
the dirty code of its upper-layer callers any cleaner.
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 f7f2bcdcff..92db2cc78b 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -254,7 +254,9 @@ let ppenvwithcst e = pp let pptac = (fun x -> pp(Ltac_plugin.Pptactic.pr_glob_tactic (Global.env()) x)) -let ppobj obj = Format.print_string (Libobject.object_tag obj) +let ppobj obj = + let Libobject.Dyn.Dyn (tag, _) = obj in + Format.print_string (Libobject.Dyn.repr tag) let cnt = ref 0 |