From c3e2e5a4b7bbfbc86b58d66e09a91728ff02e633 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 31 Dec 2004 16:49:00 +0000
Subject: Suppression de la dépendance en Tacmach pour pouvoir être appelé de
 top_printers sans tirer Tacred et les fichiers C de la machine virtuelle

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6537 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 proofs/pfedit.ml       | 6 +++---
 proofs/tactic_debug.ml | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/proofs/pfedit.ml b/proofs/pfedit.ml
index a5269efb9e..bbcda792f0 100644
--- a/proofs/pfedit.ml
+++ b/proofs/pfedit.ml
@@ -19,7 +19,7 @@ open Entries
 open Environ
 open Evd
 open Typing
-open Tacmach
+open Refiner
 open Proof_trees
 open Tacexpr
 open Proof_type
@@ -273,11 +273,11 @@ let common_ancestor l1 l2 =
       
 let rec traverse_up = function
   | 0 -> (function pf -> pf)
-  | n -> (function pf -> Tacmach.traverse 0 (traverse_up (n - 1) pf))
+  | n -> (function pf -> Refiner.traverse 0 (traverse_up (n - 1) pf))
 
 let rec traverse_down = function
   | [] -> (function pf -> pf)
-  | n::l -> (function pf -> Tacmach.traverse n (traverse_down l pf))
+  | n::l -> (function pf -> Refiner.traverse n (traverse_down l pf))
 
 let traverse_to path =
   let up_and_down path pfs =
diff --git a/proofs/tactic_debug.ml b/proofs/tactic_debug.ml
index 5daa10fc7a..4bf81f7ae2 100644
--- a/proofs/tactic_debug.ml
+++ b/proofs/tactic_debug.ml
@@ -33,7 +33,7 @@ let explain_logic_error = ref (fun e -> mt())
 
 (* Prints the goal *)
 let db_pr_goal g =
-  msgnl (str "Goal:" ++ fnl () ++ Proof_trees.db_pr_goal (Tacmach.sig_it g))
+  msgnl (str "Goal:" ++ fnl () ++ Proof_trees.db_pr_goal (Refiner.sig_it g))
 
 (* Prints the commands *)
 let help () =
-- 
cgit v1.2.3