| GrafiteAst.Apply (loc, term) ->
let metasenv,cic = disambiguate_term context metasenv term in
metasenv,GrafiteAst.Apply (loc, cic)
- | GrafiteAst.ApplyS (loc, term) ->
+ | GrafiteAst.ApplyS (loc, term, params) ->
let metasenv,cic = disambiguate_term context metasenv term in
- metasenv,GrafiteAst.ApplyS (loc, cic)
+ metasenv,GrafiteAst.ApplyS (loc, cic, params)
| GrafiteAst.Assumption loc ->
metasenv,GrafiteAst.Assumption loc
| GrafiteAst.Auto (loc,params) ->
metasenv,(GrafiteAst.Type (uri, tyno) :: types)
| _ ->
raise (GrafiteDisambiguator.DisambiguationError
- (0,[[None,lazy "Decompose works only on inductive types"]])))
+ (0,[[[],[],None,lazy "Decompose works only on inductive types"]])))
in
let metasenv,types =
List.fold_left disambiguate (metasenv,[]) types
let metasenv,term = disambiguate_term context metasenv term in
metasenv,GrafiteAst.Check (loc,term)
| GrafiteAst.Hint _
- | GrafiteAst.WLocate _ as macro ->
+ | GrafiteAst.WLocate _
+ | GrafiteAst.Inline _ as macro ->
metasenv,macro