diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-22 21:32:03 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-22 21:32:03 +0000 |
| commit | 937ca7a6dbc1a031b7c4540c665b8774440c1bb9 (patch) | |
| tree | 3a2c73669cb40011c2e62a11d3364d39f74040ba /proofs | |
| parent | de9150e6033467fd2fa8fc93d5f057e8c2f6537f (diff) | |
Abstraction du type 'qualid' pour les noms qualifiés relatifs distinct de 'section_path' pour les noms absolus
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@919 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/tacinterp.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/proofs/tacinterp.ml b/proofs/tacinterp.ml index c2dcf0bec..29daa7965 100644 --- a/proofs/tacinterp.ml +++ b/proofs/tacinterp.ml @@ -136,14 +136,14 @@ let look_for_interp = Hashtbl.find interp_tab (* Globalizes the identifier *) let glob_const_nvar loc id = - let sp = make_path [] id CCI in + let qid = make_qualid [] (string_of_id id) in try - match Nametab.locate sp with + match Nametab.locate qid with | ConstRef sp -> sp - | _ -> error ((string_of_path sp) ^ " does not denote a constant") + | _ -> error ((string_of_qualid qid) ^ " does not denote a constant") with | Not_found -> - Pretype_errors.error_global_not_found_loc loc sp + Pretype_errors.error_global_not_found_loc loc qid (* Summary and Object declaration *) |