diff options
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), _) -> |