diff options
Diffstat (limited to 'library/nameops.ml')
-rw-r--r-- | library/nameops.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/library/nameops.ml b/library/nameops.ml index d2ee86dbe..331b86d80 100644 --- a/library/nameops.ml +++ b/library/nameops.ml @@ -141,6 +141,11 @@ let name_fold f na a = | Name id -> f id a | Anonymous -> a +let name_cons na l = + match na with + | Anonymous -> l + | Name id -> id::l + let next_name_away_with_default default name l = match name with | Name str -> next_ident_away str l |