diff options
author | 2000-05-03 17:38:13 +0000 | |
---|---|---|
committer | 2000-05-03 17:38:13 +0000 | |
commit | fe587c84c6d05eb1081ed150e3ccec52044c0bfa (patch) | |
tree | 552ec02b0e956454ef4d137dc00e8274c83edc48 | |
parent | fc38a7d8f3d2a47aa8eee570747568335f3ffa19 (diff) |
renommage de certains printers
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@402 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | dev/top_printers.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 8a9539553..00b3e9270 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -21,8 +21,8 @@ let prast c = pP(print_ast c) let prastpat c = pP(print_astpat c) let prastpatl c = pP(print_astlpat c) let ppterm = (fun x -> pP(prterm x)) -let pprawterm = (fun x -> pP(prrawterm x)) -let pppattern = (fun x -> pP(prpattern x)) +let pprawterm = (fun x -> pP(pr_rawterm x)) +let pppattern = (fun x -> pP(pr_pattern x)) let pptype = (fun x -> pP(prtype x)) let prid id = pP [< 'sTR(string_of_id id) >] |