diff options
| author | herbelin | 2005-11-21 09:17:07 +0000 |
|---|---|---|
| committer | herbelin | 2005-11-21 09:17:07 +0000 |
| commit | c076cea710f8c00a6c86056b4e0b52cbdae06d5f (patch) | |
| tree | 66e019803f8c119aa4ac16c82786796f7e0554d9 /interp/constrextern.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 'interp/constrextern.ml')
| -rw-r--r-- | interp/constrextern.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index a3c2a0447d..1430bdacee 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -1333,7 +1333,8 @@ and extern_symbol_pattern (tmp_scope,scopes as allscopes) vars t = function subst in insert_pat_delimiters (make_pat_notation loc ntn l) key) | SynDefRule kn -> - CPatAtom (loc,Some (Qualid (loc, shortest_qualid_of_syndef kn))) + let qid = shortest_qualid_of_syndef vars kn in + CPatAtom (loc,Some (Qualid (loc, qid))) with No_match -> extern_symbol_pattern allscopes vars t rules @@ -1747,7 +1748,7 @@ and extern_symbol (tmp_scope,scopes as allscopes) vars t = function subst in insert_delimiters (make_notation loc ntn l) key) | SynDefRule kn -> - CRef (Qualid (loc, shortest_qualid_of_syndef kn)) in + CRef (Qualid (loc, shortest_qualid_of_syndef vars kn)) in if args = [] then e else (* TODO: compute scopt for the extra args, in case, head is a ref *) |