diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-02-14 06:57:40 +0100 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-03-09 23:23:40 +0100 |
commit | 4af41a12a0e7e6b17d25a71568641bd03d5e1f94 (patch) | |
tree | 9ffa30a21f0d5b80aaeae66955e652f185929498 /interp/smartlocate.ml | |
parent | 5f989f48eaaf5e13568fce9849f40bc554ca0166 (diff) |
[located] More work towards using CAst.t
We continue with the work of #402 and #6745 and update most of the
remaining parts of the AST:
- module declarations
- intro patterns
- top-level sentences
Now, parsed documents should be full annotated by `CAst` nodes.
Diffstat (limited to 'interp/smartlocate.ml')
-rw-r--r-- | interp/smartlocate.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/interp/smartlocate.ml b/interp/smartlocate.ml index bc24a19de..6033d509b 100644 --- a/interp/smartlocate.ml +++ b/interp/smartlocate.ml @@ -68,16 +68,16 @@ let global_with_alias ?head r = let smart_global ?head = function | AN r -> global_with_alias ?head r - | ByNotation (loc,(ntn,sc)) -> + | ByNotation {CAst.loc;v=(ntn,sc)} -> Notation.interp_notation_as_global_reference ?loc (fun _ -> true) ntn sc let smart_global_inductive = function | AN r -> global_inductive_with_alias r - | ByNotation (loc,(ntn,sc)) -> + | ByNotation {CAst.loc;v=(ntn,sc)} -> destIndRef (Notation.interp_notation_as_global_reference ?loc isIndRef ntn sc) let loc_of_smart_reference = function | AN r -> loc_of_reference r - | ByNotation (loc,(_,_)) -> loc + | ByNotation {CAst.loc;v=(_,_)} -> loc |