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


git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3235 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 2 insertions, 2 deletions

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]))