From e88e0b2140bdd2d194a52bc09f8338b5667d0f92 Mon Sep 17 00:00:00 2001 From: herbelin Date: Thu, 14 Nov 2002 18:37:54 +0000 Subject: Réforme de l'interprétation des termes : - Le parsing se fait maintenant via "constr_expr" au lieu de "Coqast.t" - "Coqast.t" reste pour l'instant pour le pretty-printing. Un deuxième pretty-printer dans ppconstr.ml est basé sur "constr_expr". - Nouveau répertoire "interp" qui hérite de la partie interprétation qui se trouvait avant dans "parsing" (constrintern.ml remplace astterm.ml; constrextern.ml est l'équivalent de termast.ml pour le nouveau printer; topconstr.ml; contient la définition de "constr_expr"; modintern.ml remplace astmod.ml) - Libnames.reference tend à remplacer Libnames.qualid MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3235 85f007b7-540e-0410-9357-904b9bb8a0f7 --- contrib/interface/debug_tac.ml4 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'contrib/interface/debug_tac.ml4') diff --git a/contrib/interface/debug_tac.ml4 b/contrib/interface/debug_tac.ml4 index b4db22803..343f90d6e 100644 --- a/contrib/interface/debug_tac.ml4 +++ b/contrib/interface/debug_tac.ml4 @@ -279,7 +279,7 @@ let mkOnThen t1 t2 selected_indices = let a = in_gen rawwit_tactic t1 in let b = in_gen rawwit_tactic t2 in let l = in_gen (wit_list0 rawwit_int) selected_indices in - TacAtom (dummy_loc, TacExtend ("OnThen", [a;b;l]));; + TacAtom (dummy_loc, TacExtend (dummy_loc, "OnThen", [a;b;l]));; (* Analyzing error reports *) @@ -363,7 +363,7 @@ let rec reconstruct_success_tac tac = Report_node(true, n, l) -> tac | Report_node(false, n, rl) -> let selected_indices = select_success 1 rl in - TacAtom (Ast.dummy_loc,TacExtend ("OnThen", + TacAtom (dummy_loc,TacExtend (dummy_loc,"OnThen", [in_gen rawwit_tactic a; in_gen rawwit_tactic b; in_gen (wit_list0 rawwit_int) selected_indices])) -- cgit v1.2.3