diff options
| -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 *) |