diff options
| author | herbelin | 2004-03-24 15:49:56 +0000 |
|---|---|---|
| committer | herbelin | 2004-03-24 15:49:56 +0000 |
| commit | 94aa0b40943fbdb26eddae8821c267ac699f511d (patch) | |
| tree | c8d1f0c4fb100f7eb2c6578a0f7f55db96ae3c5f | |
| parent | a1293d82ece96ad843dab019719f4463272f971b (diff) | |
code mort
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5546 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | translate/ppvernacnew.ml | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/translate/ppvernacnew.ml b/translate/ppvernacnew.ml index 91095b37b2..be37b110f5 100644 --- a/translate/ppvernacnew.ml +++ b/translate/ppvernacnew.ml @@ -83,13 +83,6 @@ let pr_gen env t = let pr_raw_tactic tac = pr_raw_tactic_env [] (Global.env()) tac -let pr_raw_tactic_goal n tac = - let (_,env) = Pfedit.get_goal_context n in - pr_raw_tactic_env [] env tac -let pr_lconstr_goal n c = - let (_,env) = Pfedit.get_goal_context n in - Ppconstrnew.pr_lconstr_env env c - let rec extract_signature = function | [] -> [] | Egrammar.TacNonTerm (_,(_,t),_) :: l -> t :: extract_signature l |