diff options
| author | herbelin | 2003-04-07 08:29:33 +0000 |
|---|---|---|
| committer | herbelin | 2003-04-07 08:29:33 +0000 |
| commit | e72e1ddd0080c465f0ba2c6e5790fca8038d012a (patch) | |
| tree | b49bb9180dd2151ef6087981849416ede089e510 /parsing/termast.ml | |
| parent | abde1fa18831d4f316b43206c057548edfd9f30f (diff) | |
Options d'affichage maintenant dans Constrextern
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3845 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/termast.ml')
| -rw-r--r-- | parsing/termast.ml | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/parsing/termast.ml b/parsing/termast.ml index f1ce602fb7..8405c6cf18 100644 --- a/parsing/termast.ml +++ b/parsing/termast.ml @@ -31,24 +31,29 @@ open Nametab (**********************************************************************) (* Parametrization *) - +open Constrextern +(* (* This governs printing of local context of references *) let print_arguments = ref false (* If true, prints local context of evars, whatever print_arguments *) let print_evar_arguments = ref false +*) (* This forces printing of cast nodes *) let print_casts = ref true +(* (* This governs printing of implicit arguments. When [print_implicits] is on then [print_implicits_explicit_args] tells how implicit args are printed. If on, implicit args are printed prefixed by "!" otherwise the function and not the arguments is prefixed by "!" *) let print_implicits = ref false +*) let print_implicits_explicit_args = ref false +(* (* This forces printing of coercions *) let print_coercions = ref false @@ -66,7 +71,7 @@ let with_casts f = with_option print_casts f let with_implicits f = with_option print_implicits f let with_coercions f = with_option print_coercions f let with_universes f = with_option print_universes f - +*) (**********************************************************************) (* conversion of references *) |