diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-05-29 11:09:15 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-05-29 11:09:15 +0000 |
| commit | 6d961ac24305f26e896b602bdabe0e9c3c7cbf05 (patch) | |
| tree | dadc934c94e026149da2ae08144af769f4e9cb6c /pretyping/program.ml | |
| parent | 255f7938cf92216bc134099c50bd8258044be644 (diff) | |
global_reference migrated from Libnames to new Globnames, less deps in grammar.cma
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15384 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/program.ml')
| -rw-r--r-- | pretyping/program.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/program.ml b/pretyping/program.ml index bb0cbe1c7..046379ed6 100644 --- a/pretyping/program.ml +++ b/pretyping/program.ml @@ -33,7 +33,7 @@ let find_reference locstr dir s = with Not_found -> anomaly (locstr^": cannot find "^(Libnames.string_of_path sp)) let coq_reference locstr dir s = find_reference locstr ("Coq"::dir) s -let coq_constant locstr dir s = Libnames.constr_of_global (coq_reference locstr dir s) +let coq_constant locstr dir s = Globnames.constr_of_global (coq_reference locstr dir s) let init_constant dir s () = coq_constant "Program" dir s let init_reference dir s () = coq_reference "Program" dir s |