diff options
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/top_printers.ml | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 35cd38acbd..a67f15e8eb 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -38,13 +38,10 @@ let prvar ((id,a)) = pP [< 'sTR"#" ; 'sTR(string_of_id id) ; 'sTR":" ; term0 (gLOB nil_sign) a >] -let genprj f j = [< (f (gLOB nil_sign)j.uj_val); - 'sTR " : "; - (f (gLOB nil_sign)j.uj_type); - 'sTR " : "; - (f (gLOB nil_sign)j.uj_kind)>] +let genprj f j = + let (c,t) = Termast.with_casts f j in [< c; 'sTR " : "; t >] -let prj j = pP (genprj term0 j) +let prj j = pP (genprj prjudge j) let prsp sp = pP[< 'sTR(string_of_path sp) >] |