diff options
| author | herbelin | 2001-11-19 08:40:40 +0000 |
|---|---|---|
| committer | herbelin | 2001-11-19 08:40:40 +0000 |
| commit | 7d8a167b36d1f27cc38f3b042eb6f2c01a8b6177 (patch) | |
| tree | d3432765a2944e4f4ab6bfa50b653acebcd2beec /library/opaque.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/opaque.ml')
| -rw-r--r-- | library/opaque.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/library/opaque.ml b/library/opaque.ml index c672454a59..ff551ce557 100644 --- a/library/opaque.ml +++ b/library/opaque.ml @@ -10,6 +10,7 @@ (*i*) open Util +open Pp open Names open Closure open Summary @@ -49,8 +50,10 @@ let set_transparent_const sp = let (ids,sps) = !tr_state in let cb = Global.lookup_constant sp in if cb.const_body <> None & cb.const_opaque then - let s = string_of_path sp in - error ("Cannot make "^s^" transparent because it was declared opaque."); + errorlabstrm "set_transparent_const" + [< 'sTR "Cannot make"; 'sPC; + Nametab.pr_global_env (Global.env()) (Nametab.ConstRef sp); + 'sPC; 'sTR "transparent because it was declared opaque." >]; tr_state := (ids, Sppred.add sp sps) let set_opaque_var id = |