diff options
| author | pboutill | 2012-04-27 16:43:27 +0000 |
|---|---|---|
| committer | pboutill | 2012-04-27 16:43:27 +0000 |
| commit | 591aefbf015cf30912bf5ade76feb000bb12cdd5 (patch) | |
| tree | 97336604c80df384c0fb4d3a6654945caca2e882 /parsing/tok.ml | |
| parent | a1a3e3b84bc7dac2ae1ddae1770adde914732315 (diff) | |
Partial revert of r15148 in order to compile with Camlp4
+ comment correction
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15253 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/tok.ml')
| -rw-r--r-- | parsing/tok.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/parsing/tok.ml b/parsing/tok.ml index 69fcca98d7..52d56c4dd6 100644 --- a/parsing/tok.ml +++ b/parsing/tok.ml @@ -45,6 +45,10 @@ let match_keyword kwd = function | KEYWORD kwd' when kwd = kwd' -> true | _ -> false +(* Needed to fix Camlp4 signature. + Cannot use Pp because of silly Tox -> Compat -> Pp dependency *) +let print ppf tok = Format.pp_print_string ppf (to_string tok) + (** For camlp5, conversion from/to [Plexing.pattern], and a match function analoguous to [Plexing.default_match] *) |