Commit f2f8dd2a authored by POTTIER Francois's avatar POTTIER Francois
Browse files

Internal renaming.

parent 88ffa551
...@@ -108,7 +108,7 @@ let define keyword1 f keyword2 = ...@@ -108,7 +108,7 @@ let define keyword1 f keyword2 =
the pair ($startpos, $endpos). (Similarly for $loc(x).) Furthermore, $sloc the pair ($startpos, $endpos). (Similarly for $loc(x).) Furthermore, $sloc
is sugar for the pair ($symbolstartpos, $endpos). *) is sugar for the pair ($symbolstartpos, $endpos). *)
let define_tuple keyword keywords = let define_as_tuple keyword keywords =
Action.define Action.define
keyword keyword
(List.fold_right KeywordSet.add keywords KeywordSet.empty) (List.fold_right KeywordSet.add keywords KeywordSet.empty)
...@@ -119,12 +119,12 @@ let define_tuple keyword keywords = ...@@ -119,12 +119,12 @@ let define_tuple keyword keywords =
let expand_loc keyword action = let expand_loc keyword action =
match keyword with match keyword with
| Position (Left, WhereSymbolStart, FlavorLocation) -> (* $sloc *) | Position (Left, WhereSymbolStart, FlavorLocation) -> (* $sloc *)
define_tuple keyword define_as_tuple keyword
[ Position (Left, WhereSymbolStart, FlavorPosition); [ Position (Left, WhereSymbolStart, FlavorPosition);
Position (Left, WhereEnd, FlavorPosition) ] Position (Left, WhereEnd, FlavorPosition) ]
action action
| Position (subject, WhereStart, FlavorLocation) -> (* $loc, $loc(x) *) | Position (subject, WhereStart, FlavorLocation) -> (* $loc, $loc(x) *)
define_tuple keyword define_as_tuple keyword
[ Position (subject, WhereStart, FlavorPosition); [ Position (subject, WhereStart, FlavorPosition);
Position (subject, WhereEnd, FlavorPosition) ] Position (subject, WhereEnd, FlavorPosition) ]
action action
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment