diff options
author | 2002-11-24 23:13:25 +0000 | |
---|---|---|
committer | 2002-11-24 23:13:25 +0000 | |
commit | 5c7cd2b0c85470a96b1edb09956ebef8e5d45cfe (patch) | |
tree | b531583709303b92d62dee37571250eb7cde48c7 /toplevel/vernacentries.ml | |
parent | d2b7a94fe0ed982a6dd7ff2c07991c2f1b1a6fc8 (diff) |
Utilisation des niveaux de camlp4 pour gérer les niveaux de constr; améliorations diverses de l'affichage; affinement de la syntaxe et des options de Notation; branchement de Syntactic Definition sur Notation
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3270 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/vernacentries.ml')
-rw-r--r-- | toplevel/vernacentries.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 0506dd2da..35ef1e620 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -42,7 +42,8 @@ type pcoq_hook = { search : searchable -> dir_path list * bool -> unit; print_name : reference -> unit; print_check : Environ.unsafe_judgment -> unit; - print_eval : (constr -> constr) -> Environ.env -> constr_expr -> Environ.unsafe_judgment -> unit; + print_eval : (constr -> constr) -> Environ.env -> constr_expr -> + Environ.unsafe_judgment -> unit; show_goal : int option -> unit } @@ -783,6 +784,7 @@ let vernac_print = function | PrintHintGoal -> Auto.print_applicable_hint () | PrintHintDbName s -> Auto.print_hint_db_by_name s | PrintHintDb -> Auto.print_searchtable () + | PrintScope s -> pp (Symbols.pr_scope (Constrextern.without_symbols pr_rawterm) s) let global_loaded_library r = let (loc,qid) = qualid_of_reference r in |