diff options
| author | Pierre-Marie Pédrot | 2018-11-19 13:34:43 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-11-19 13:34:43 +0100 |
| commit | df2757b19b2be69aa2e026343221dbe185e3a0df (patch) | |
| tree | 795c4814902463a25e0c59e7045b9690cc8dd74f /gramlib | |
| parent | c54edf206c0e3ca58d1d6b1d53ac37267a67415b (diff) | |
| parent | dd198266ff91f619213e0160961b96f2654c59d6 (diff) | |
Merge PR #9023: [gramlib] Remove unused alias.
Diffstat (limited to 'gramlib')
| -rw-r--r-- | gramlib/grammar.ml | 13 | ||||
| -rw-r--r-- | gramlib/grammar.mli | 1 |
2 files changed, 0 insertions, 14 deletions
diff --git a/gramlib/grammar.ml b/gramlib/grammar.ml index 760410894a..1ce0136c1d 100644 --- a/gramlib/grammar.ml +++ b/gramlib/grammar.ml @@ -862,7 +862,6 @@ module type S = val parse_token_stream : 'a e -> te Stream.t -> 'a val print : Format.formatter -> 'a e -> unit external obj : 'a e -> te Gramext.g_entry = "%identity" - val parse_token : 'a e -> te Stream.t -> 'a end type ('self, 'a) ty_symbol type ('self, 'f, 'r) ty_rule @@ -930,18 +929,6 @@ module GMake (L : GLexerType) = Obj.magic (parse_parsable e p : Obj.t) let parse_token_stream (e : 'a e) ts : 'a = Obj.magic (e.estart 0 ts : Obj.t) - let _warned_using_parse_token = ref false - let parse_token (entry : 'a e) ts : 'a = - (* commented: too often warned in Coq... - if not warned_using_parse_token.val then do { - eprintf "<W> use of Entry.parse_token "; - eprintf "deprecated since 2017-06-16\n%!"; - eprintf "use Entry.parse_token_stream instead\n%! "; - warned_using_parse_token.val := True - } - else (); - *) - parse_token_stream entry ts let name e = e.ename let of_parser n (p : te Stream.t -> 'a) : 'a e = {egram = gram; ename = n; elocal = false; diff --git a/gramlib/grammar.mli b/gramlib/grammar.mli index 244ab710dc..1c5fcb7bbf 100644 --- a/gramlib/grammar.mli +++ b/gramlib/grammar.mli @@ -36,7 +36,6 @@ module type S = val parse_token_stream : 'a e -> te Stream.t -> 'a val print : Format.formatter -> 'a e -> unit external obj : 'a e -> te Gramext.g_entry = "%identity" - val parse_token : 'a e -> te Stream.t -> 'a end type ('self, 'a) ty_symbol type ('self, 'f, 'r) ty_rule |