diff options
| author | herbelin | 2006-01-12 08:21:57 +0000 |
|---|---|---|
| committer | herbelin | 2006-01-12 08:21:57 +0000 |
| commit | 085a2c6e1ceff99ab9be13c6c9f03ac89754d015 (patch) | |
| tree | 721e611aec5e82ebcb531b32122a27be2712e113 | |
| parent | 2f8968f4766c325b22b8ebfecec087d8cc4f0508 (diff) | |
Compatibilité prterm
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7855 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/printer.ml | 5 | ||||
| -rw-r--r-- | parsing/printer.mli | 6 |
2 files changed, 10 insertions, 1 deletions
diff --git a/parsing/printer.ml b/parsing/printer.ml index 99b860d99b..84aa2701ed 100644 --- a/parsing/printer.ml +++ b/parsing/printer.ml @@ -371,3 +371,8 @@ let pr_prim_rule = function | Rename (id1,id2) -> (str "rename " ++ pr_id id1 ++ str " into " ++ pr_id id2) + +(* Backwards compatibility *) + +let prterm = pr_lconstr + diff --git a/parsing/printer.mli b/parsing/printer.mli index f3cdfda47a..5d9ea753c4 100644 --- a/parsing/printer.mli +++ b/parsing/printer.mli @@ -93,4 +93,8 @@ val pr_prim_rule : prim_rule -> std_ppcmds (* Emacs/proof general support *) -val emacs_str : string -> string +val emacs_str : string -> string + +(* Backwards compatibility *) + +val prterm : constr -> std_ppcmds (* = pr_lconstr *) |