diff options
| author | Matej Kosik | 2016-10-18 10:58:42 +0200 |
|---|---|---|
| committer | Matej Kosik | 2016-10-19 13:48:52 +0200 |
| commit | 7b4dbbb83e3da2fe716dacad627ddd3497653f07 (patch) | |
| tree | 2d3d81fc36bc1180e2244fa9a02b8e7ae8516d2f /library | |
| parent | ad81c04a923c594b7a893f08bb5571a6db74c92a (diff) | |
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
Diffstat (limited to 'library')
| -rw-r--r-- | library/nameops.ml | 2 | ||||
| -rw-r--r-- | library/nameops.mli | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/library/nameops.ml b/library/nameops.ml index 71405d0240..f3c2570011 100644 --- a/library/nameops.ml +++ b/library/nameops.ml @@ -69,7 +69,7 @@ let root_of_id id = (* Rem: semantics is a bit different, if an ident starts with toto00 then after successive renamings it comes to toto09, then it goes on with toto10 *) -let lift_subscript id = +let increment_subscript id = let id = Id.to_string id in let len = String.length id in let rec add carrypos = diff --git a/library/nameops.mli b/library/nameops.mli index 39ce409bcf..a1ea0231f8 100644 --- a/library/nameops.mli +++ b/library/nameops.mli @@ -21,9 +21,9 @@ val root_of_id : Id.t -> Id.t (** remove trailing digits, ' and _ *) val add_suffix : Id.t -> string -> Id.t val add_prefix : string -> Id.t -> Id.t -val has_subscript : Id.t -> bool -val lift_subscript : Id.t -> Id.t -val forget_subscript : Id.t -> Id.t +val has_subscript : Id.t -> bool +val increment_subscript : Id.t -> Id.t +val forget_subscript : Id.t -> Id.t val out_name : Name.t -> Id.t (** [out_name] associates [id] to [Name id]. Raises [Failure "Nameops.out_name"] |