diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-10-11 17:27:20 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-10-11 17:27:20 +0000 |
commit | 301a70e45eac43f034077c95bce04edbcf2ab4ad (patch) | |
tree | d61c92f0d7a46203618a4610301c64d65c9c03ad /library/nametab.ml | |
parent | 1d5b3f16e202af2874181671abd86a47fca37cd7 (diff) |
Suppression option immediate_discharge; nettoyage de Declare et conséquences
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2109 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/nametab.ml')
-rwxr-xr-x | library/nametab.ml | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/library/nametab.ml b/library/nametab.ml index 6cd43c392..643c4ff16 100755 --- a/library/nametab.ml +++ b/library/nametab.ml @@ -240,6 +240,16 @@ let absolute_reference sp = let locate_in_absolute_module dir id = absolute_reference (make_path dir id CCI) +let global loc qid = + try match extended_locate qid with + | TrueGlobal ref -> ref + | SyntacticDef _ -> + error + ("Unexpected reference to a syntactic definition: " + ^(string_of_qualid qid)) + with Not_found -> + error_global_not_found_loc loc qid + let exists_cci sp = try let _ = locate_cci (qualid_of_sp sp) in true with Not_found -> false |