From 7b4dbbb83e3da2fe716dacad627ddd3497653f07 Mon Sep 17 00:00:00 2001
From: Matej Kosik
Date: Tue, 18 Oct 2016 10:58:42 +0200
Subject: CLEANUP: rename "Nameops.lift_subscript" to
 "Nameops.increment_subscript".

The word "increment" is more appropriate in this case than "lifting".
The world "lifting", in computer science, usually denotes something else:

  https://en.wikipedia.org/wiki/Lambda_lifting
---
 plugins/extraction/common.ml | 2 +-
 plugins/funind/merge.ml      | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'plugins')

diff --git a/plugins/extraction/common.ml b/plugins/extraction/common.ml
index 3c5f6cb720..9446cf667c 100644
--- a/plugins/extraction/common.ml
+++ b/plugins/extraction/common.ml
@@ -145,7 +145,7 @@ type env = Id.t list * Id.Set.t
 (*s Generic renaming issues for local variable names. *)
 
 let rec rename_id id avoid =
-  if Id.Set.mem id avoid then rename_id (lift_subscript id) avoid else id
+  if Id.Set.mem id avoid then rename_id (increment_subscript id) avoid else id
 
 let rec rename_vars avoid = function
   | [] ->
diff --git a/plugins/funind/merge.ml b/plugins/funind/merge.ml
index 7cbe787c3b..19c2ed4178 100644
--- a/plugins/funind/merge.ml
+++ b/plugins/funind/merge.ml
@@ -81,7 +81,7 @@ let ident_global_exist id =
     global env) with base [id]. *)
 let next_ident_fresh (id:Id.t) =
     let res = ref id in
-    while ident_global_exist !res do res := Nameops.lift_subscript !res done;
+    while ident_global_exist !res do res := Nameops.increment_subscript !res done;
     !res
 
 
-- 
cgit v1.2.3