diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-05-29 11:09:28 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-05-29 11:09:28 +0000 |
| commit | af6a803c2dafd95ed828d284860e7235cb4bacda (patch) | |
| tree | bb034d289e34235d0640d50278a8797397d12b1d /interp | |
| parent | 3ce361c458336f2b27b3a598d6ad7817bd803dd9 (diff) | |
Avoid Dumpglob dependency on Lexer
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15389 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/dumpglob.ml | 5 | ||||
| -rw-r--r-- | interp/dumpglob.mli | 4 | ||||
| -rw-r--r-- | interp/interp.mllib | 2 |
3 files changed, 0 insertions, 11 deletions
diff --git a/interp/dumpglob.ml b/interp/dumpglob.ml index 58577356b..9fde5e219 100644 --- a/interp/dumpglob.ml +++ b/interp/dumpglob.ml @@ -60,11 +60,6 @@ let previous_state = ref MultFiles let pause () = previous_state := !glob_output; glob_output := NoGlob let continue () = glob_output := !previous_state -type coqdoc_state = Lexer.location_table - -let coqdoc_freeze = Lexer.location_table -let coqdoc_unfreeze = Lexer.restore_location_table - open Decl_kinds let type_of_logical_kind = function diff --git a/interp/dumpglob.mli b/interp/dumpglob.mli index 16fa04ef9..469df1222 100644 --- a/interp/dumpglob.mli +++ b/interp/dumpglob.mli @@ -22,10 +22,6 @@ val dump_to_dotglob : unit -> unit val pause : unit -> unit val continue : unit -> unit -type coqdoc_state = Lexer.location_table -val coqdoc_freeze : unit -> coqdoc_state -val coqdoc_unfreeze : coqdoc_state -> unit - val add_glob : Pp.loc -> Globnames.global_reference -> unit val add_glob_kn : Pp.loc -> Names.kernel_name -> unit diff --git a/interp/interp.mllib b/interp/interp.mllib index ad3350f91..6d7e92111 100644 --- a/interp/interp.mllib +++ b/interp/interp.mllib @@ -1,5 +1,3 @@ -Tok -Lexer Constrexpr_ops Notation_ops Topconstr |