diff options
| author | herbelin | 2003-10-16 14:52:09 +0000 |
|---|---|---|
| committer | herbelin | 2003-10-16 14:52:09 +0000 |
| commit | 4d61b0c12eb94e220740e39e10a7678cdc0a5a85 (patch) | |
| tree | 6f070cffd72473b1c22301929b617d90eb6ce842 /interp/constrextern.ml | |
| parent | 214759f4b785489932031d0651a7c8a85f49ab1d (diff) | |
Debranchement de l'affichage systematique des projections avec la notation pointee; soumis maintenant a l'activation de l'option 'Set Printing Projections'
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4649 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/constrextern.ml')
| -rw-r--r-- | interp/constrextern.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index ea17a9fba5..1be3b805a5 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -57,6 +57,9 @@ let print_universes = ref false (* This suppresses printing of numeral and symbols *) let print_no_symbol = ref false +(* This governs printing of projections using the dot notation symbols *) +let print_projections = ref false + let print_meta_as_hole = ref false let with_arguments f = Options.with_option print_arguments f @@ -465,12 +468,12 @@ let occur_name na aty = | Anonymous -> false let is_projection nargs = function - | Some r -> + | Some r when !print_projections -> (try let n = Recordops.find_projection_nparams r + 1 in if n <= nargs then Some n else None with Not_found -> None) - | None -> None + | _ -> None let stdlib = function | Some r -> |