diff options
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_minicoq.ml4 | 3 | ||||
| -rw-r--r-- | parsing/g_minicoq.mli | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/parsing/g_minicoq.ml4 b/parsing/g_minicoq.ml4 index 1e5b610c6d..ae26e3f3c0 100644 --- a/parsing/g_minicoq.ml4 +++ b/parsing/g_minicoq.ml4 @@ -7,6 +7,7 @@ open Names open Univ open Generic open Term +open Sign let lexer = { Token.func = Lexer.func; @@ -170,4 +171,4 @@ let rec pp bv = function | Rel n -> print_rel bv n | _ -> [< 'sTR"<???>" >] -let pr_term = pp [] +let pr_term _ ctx = pp (List.map fst (get_rels ctx)) diff --git a/parsing/g_minicoq.mli b/parsing/g_minicoq.mli index 77dbb5c712..289706fdb9 100644 --- a/parsing/g_minicoq.mli +++ b/parsing/g_minicoq.mli @@ -2,6 +2,7 @@ open Pp open Names open Term +open Sign val term : constr Grammar.Entry.e @@ -16,4 +17,4 @@ type command = val command : command Grammar.Entry.e -val pr_term : constr -> std_ppcmds +val pr_term : path_kind -> context -> constr -> std_ppcmds |