diff options
| author | herbelin | 2003-05-24 23:30:32 +0000 |
|---|---|---|
| committer | herbelin | 2003-05-24 23:30:32 +0000 |
| commit | f2852e673938e31ccd24ef7573156ed861537e85 (patch) | |
| tree | b3b2b8cc4f7e7a8632f8cb506cf9ff4fae727ef5 /translate | |
| parent | f532f9506236ac9cc8e8b7dc69a82e43040705d3 (diff) | |
Ajout FreshId
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4072 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'translate')
| -rw-r--r-- | translate/pptacticnew.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/translate/pptacticnew.ml b/translate/pptacticnew.ml index 0c4f571d7c..30433b4915 100644 --- a/translate/pptacticnew.ml +++ b/translate/pptacticnew.ml @@ -481,6 +481,7 @@ and pr_tacarg env = function | TacVoid -> str "()" | Reference r -> pr_ref r | ConstrMayEval (ConstrTerm c) -> pr_constr env c + | TacFreshId sopt -> str "FreshId" ++ pr_opt qstring sopt | (ConstrMayEval _|TacCall _|Tacexp _|Integer _) as a -> str "'" ++ pr_tac env (latom,E) (TacArg a) |