diff options
| author |  pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-04-12 20:49:15 +0000 |
|---|---|---|
| committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-04-12 20:49:15 +0000 |
| commit | 1638f5df49ff81e174f6a1c6915a65c9b9d4adf5 (patch) | |
| tree | b3156dbc48bed485132a0e9cbca59a1c82bc1d9a /parsing | |
| parent | cf6b384b17a66686f31001d8aeb0958f3cfbfbea (diff) | |
Remove print call that do not use the pp mechanism
Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15148 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/lexer.ml4 | 2 | ||||
| -rw-r--r-- | parsing/tok.ml | 2 | ||||
| -rw-r--r-- | parsing/tok.mli | 1 |
3 files changed, 0 insertions, 5 deletions
diff --git a/parsing/lexer.ml4 b/parsing/lexer.ml4 index e351061dc..46dd516be 100644 --- a/parsing/lexer.ml4 +++ b/parsing/lexer.ml4 @@ -94,8 +94,6 @@ module Error = struct | UnsupportedUnicode x -> Printf.sprintf "Unsupported Unicode character (0x%x)" x) - let print ppf x = Format.fprintf ppf "%s@." (to_string x) - end open Error diff --git a/parsing/tok.ml b/parsing/tok.ml index bd7645c2b..69fcca98d 100644 --- a/parsing/tok.ml +++ b/parsing/tok.ml @@ -45,8 +45,6 @@ let match_keyword kwd = function | KEYWORD kwd' when kwd = kwd' -> true | _ -> false -let print ppf tok = Format.fprintf ppf "%s" (to_string tok) - (** For camlp5, conversion from/to [Plexing.pattern], and a match function analoguous to [Plexing.default_match] *) diff --git a/parsing/tok.mli b/parsing/tok.mli index 9a1edec57..d3c178b5a 100644 --- a/parsing/tok.mli +++ b/parsing/tok.mli @@ -21,7 +21,6 @@ type t = val extract_string : t -> string val to_string : t -> string -val print : Format.formatter -> t -> unit val match_keyword : string -> t -> bool (** for camlp5 *) val of_pattern : string*string -> t |