diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-20 09:08:14 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-20 09:08:14 +0000 |
| commit | da0b4d3bce241397f146759584a0bc0972a1ce7d (patch) | |
| tree | 5edbe9d213c3abe44383fe2a73c1d4f33710cb33 /parsing | |
| parent | 125c2ade92dbdd891c86850e9710a1f203c4ec3c (diff) | |
La variable argument d'un non-terminal dans Grammar est maintenant un Var ( plus un Id )
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@892 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/extend.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/extend.ml4 b/parsing/extend.ml4 index aabd069bb..1f6c36753 100644 --- a/parsing/extend.ml4 +++ b/parsing/extend.ml4 @@ -107,7 +107,7 @@ let nterm univ ast = let prod_item univ env ast = match ast with | Str (_, s) -> env, Term (terminal s) - | Node (_, "NT", [nt; Id (locp, p)]) -> + | Node (_, "NT", [nt; Nvar (locp, p)]) -> let (nont, etyp) = nterm univ nt in if isMeta p then ((p, etyp) :: env, NonTerm (nont, etyp, Some p)) |