diff options
| author | filliatr | 1999-09-10 16:11:21 +0000 |
|---|---|---|
| committer | filliatr | 1999-09-10 16:11:21 +0000 |
| commit | 6f79401e9d1a3d632a84b6087c429ee217db0d2a (patch) | |
| tree | ead8984175b97a1a82d3905f32bcd9277504f7df /parsing | |
| parent | 3d3d0b85bd18ecfaf54d9645c4789409545d1a8f (diff) | |
affichage des erreurs de typage dans minicoq
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@73 85f007b7-540e-0410-9357-904b9bb8a0f7
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 |