diff options
| author | filliatr | 2000-11-24 17:30:06 +0000 |
|---|---|---|
| committer | filliatr | 2000-11-24 17:30:06 +0000 |
| commit | 3396e2d3a3abe0a740302a6e87b529a1ebcbc08e (patch) | |
| tree | c68aa163635d586fd9d34d19e29cbae51a72a65e /parsing | |
| parent | 4fd6bfd7204a2371f7b8f5c3a34fb2feaa273193 (diff) | |
Ajout objets END-SECTION pour les nametabs + nettoyage lib/nametab
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@947 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/astterm.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/astterm.ml b/parsing/astterm.ml index c89ec4a534..b4880f6fbc 100644 --- a/parsing/astterm.ml +++ b/parsing/astterm.ml @@ -496,7 +496,7 @@ let ast_of_qualid loc sp = try let ref = Nametab.locate sp in let c = Declare.constr_of_reference Evd.empty (Global.env()) ref in - match kind_of_term c with + match kind_of_term (snd (decompose_lam c)) with | IsConst (sp, _) -> Node (loc, "CONST", [path_section loc sp]) | IsEvar (ev, _) -> Node (loc, "EVAR", [Num (loc, ev)]) | IsMutConstruct (((sp, i), j), _) -> |