diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-05-20 15:54:50 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-05-20 15:54:50 +0000 |
| commit | d0a324eef4d35a87e300a2b660b26fdbe2043d92 (patch) | |
| tree | d223b5752d1421944fc0bcffcaf2ec49661d7114 /interp | |
| parent | f95411d169c8d636e980de3a38bb02c72c3b4965 (diff) | |
Adoption du nom canonique global_of_constr pour éviter confusion avec type reference
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7052 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrintern.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 3a9dc3a75..89d4e57ae 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -530,7 +530,7 @@ let find_constructor ref = let rec unf = function | ConstRef cst -> let v = Environ.constant_value (Global.env()) cst in - unf (reference_of_constr v) + unf (global_of_constr v) | ConstructRef c -> if !dump then add_glob loc r; c, [] |