diff options
| author | herbelin | 2006-01-21 11:03:29 +0000 |
|---|---|---|
| committer | herbelin | 2006-01-21 11:03:29 +0000 |
| commit | ea14cad5cee269b7108379dec28088c3aff1c08f (patch) | |
| tree | 981f2ec519de25bb8ed41a2cf81b7f053548c5c7 /parsing | |
| parent | 44d42fe1cf68c042fdcacacfe1b9c6eb7e62773b (diff) | |
Déplacement de pr_arg et pr_opt de Ppconstr vers Util
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7907 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/ppconstr.ml | 6 | ||||
| -rw-r--r-- | parsing/ppconstr.mli | 4 |
2 files changed, 1 insertions, 9 deletions
diff --git a/parsing/ppconstr.ml b/parsing/ppconstr.ml index 5a969490d9..8bf2f42075 100644 --- a/parsing/ppconstr.ml +++ b/parsing/ppconstr.ml @@ -111,10 +111,6 @@ let pr_with_comments loc pp = pr_located (fun x -> x) (loc,pp) let pr_sep_com sep f c = pr_with_comments (constr_loc c) (sep() ++ f c) -let pr_opt pr = function - | None -> mt () - | Some x -> spc() ++ pr x - let pr_optc pr = function | None -> mt () | Some x -> pr_sep_com spc pr x @@ -397,8 +393,6 @@ let pr_recursive pr_decl id = function (pr_decl true) dl ++ fnl() ++ str "for " ++ pr_id id -let pr_arg pr x = spc () ++ pr x - let is_var id = function | CRef (Ident (_,id')) when id=id' -> true | _ -> false diff --git a/parsing/ppconstr.mli b/parsing/ppconstr.mli index 51fbfcb262..ecfa5b4f33 100644 --- a/parsing/ppconstr.mli +++ b/parsing/ppconstr.mli @@ -35,9 +35,7 @@ val prec_less : int -> int * Ppextend.parenRelation -> bool val pr_tight_coma : unit -> std_ppcmds -val pr_located : - ('a -> std_ppcmds) -> 'a located -> std_ppcmds -val pr_opt : ('a -> std_ppcmds) -> 'a option -> std_ppcmds +val pr_located : ('a -> std_ppcmds) -> 'a located -> std_ppcmds val pr_or_var : ('a -> std_ppcmds) -> 'a or_var -> std_ppcmds val pr_metaid : identifier -> std_ppcmds |