diff options
| author | herbelin | 2004-12-31 16:49:00 +0000 |
|---|---|---|
| committer | herbelin | 2004-12-31 16:49:00 +0000 |
| commit | c3e2e5a4b7bbfbc86b58d66e09a91728ff02e633 (patch) | |
| tree | bb5832ab7a6b9d45727549aa29493015e6a5ff74 /proofs/pfedit.ml | |
| parent | 56ea2214bd565fea37ee623436c1877010fdda62 (diff) | |
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
Diffstat (limited to 'proofs/pfedit.ml')
| -rw-r--r-- | proofs/pfedit.ml | 6 |
1 files changed, 3 insertions, 3 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 = |