Attention une mise à jour du service Gitlab va être effectuée le mardi 30 novembre entre 17h30 et 18h00. 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. Cette mise à jour intermédiaire en version 14.0.12 nous permettra de rapidement pouvoir mettre à votre disposition une version plus récente.

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