Attention une mise à jour du service Gitlab va être effectuée le mardi 18 janvier (et non lundi 17 comme annoncé précédemment) entre 18h00 et 18h30. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes.

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 =
the pair ($startpos, $endpos). (Similarly for $loc(x).) Furthermore, $sloc
is sugar for the pair ($symbolstartpos, $endpos). *)
let define_tuple keyword keywords =
let define_as_tuple keyword keywords =
Action.define
keyword
(List.fold_right KeywordSet.add keywords KeywordSet.empty)
......@@ -119,12 +119,12 @@ let define_tuple keyword keywords =
let expand_loc keyword action =
match keyword with
| Position (Left, WhereSymbolStart, FlavorLocation) -> (* $sloc *)
define_tuple keyword
define_as_tuple keyword
[ Position (Left, WhereSymbolStart, FlavorPosition);
Position (Left, WhereEnd, FlavorPosition) ]
action
| Position (subject, WhereStart, FlavorLocation) -> (* $loc, $loc(x) *)
define_tuple keyword
define_as_tuple keyword
[ Position (subject, WhereStart, FlavorPosition);
Position (subject, WhereEnd, FlavorPosition) ]
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