diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-11-19 08:40:40 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-11-19 08:40:40 +0000 |
| commit | 7d8a167b36d1f27cc38f3b042eb6f2c01a8b6177 (patch) | |
| tree | d3432765a2944e4f4ab6bfa50b653acebcd2beec /library/goptions.ml | |
| parent | 058e824e819b3610d0a4c0c53ded094b4b347b9f (diff) | |
Re-installation de l'affichage des globaux par des noms courts
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2200 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/goptions.ml')
| -rw-r--r-- | library/goptions.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/goptions.ml b/library/goptions.ml index 0eae518b4..95336c35e 100644 --- a/library/goptions.ml +++ b/library/goptions.ml @@ -302,7 +302,7 @@ let msg_option_value (name,v) = | BoolValue false -> [< 'sTR "false" >] | IntValue n -> [< 'iNT n >] | StringValue s -> [< 'sTR s >] - | IdentValue id -> pr_sp(Nametab.sp_of_global (Global.env())id) + | IdentValue r -> pr_global_env (Global.env()) r let print_option_value key = let (name,(_,read,_)) = get_option key in |