diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-11-21 09:17:07 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-11-21 09:17:07 +0000 |
| commit | c076cea710f8c00a6c86056b4e0b52cbdae06d5f (patch) | |
| tree | 66e019803f8c119aa4ac16c82786796f7e0554d9 /library/nametab.ml | |
| parent | 36a3e056ef351515033f81d54a5ad1f1d3641813 (diff) | |
Correction bug dé-globalisation syntactic def (cf coq-club 20/11/05)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7596 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/nametab.ml')
| -rwxr-xr-x | library/nametab.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/nametab.ml b/library/nametab.ml index ddd06c0c2..e4a8ee995 100755 --- a/library/nametab.ml +++ b/library/nametab.ml @@ -472,9 +472,9 @@ let shortest_qualid_of_global ctx ref = let sp = Globrevtab.find (TrueGlobal ref) !the_globrevtab in SpTab.shortest_qualid ctx sp !the_ccitab -let shortest_qualid_of_syndef kn = +let shortest_qualid_of_syndef ctx kn = let sp = sp_of_syntactic_definition kn in - SpTab.shortest_qualid Idset.empty sp !the_ccitab + SpTab.shortest_qualid ctx sp !the_ccitab let shortest_qualid_of_module mp = let dir = MPmap.find mp !the_modrevtab in |