diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-09-17 20:46:20 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-09-17 20:46:20 +0000 |
| commit | 7208928de37565a9e38f9540f2bfb1e7a3b877e6 (patch) | |
| tree | 7d51cd24c406d349f4b7410c81ee66c210df49cd /library | |
| parent | a6dac9962929d724c08c9a74a8e05de06469a1a0 (diff) | |
More cleaning on Utils and CList. Some parts of the code being
peculiarly messy, I hope I did not introduce too many bugs.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15815 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/nameops.ml | 2 | ||||
| -rw-r--r-- | library/nameops.mli | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/library/nameops.ml b/library/nameops.ml index 01a9a6240..5ea7e2685 100644 --- a/library/nameops.ml +++ b/library/nameops.ml @@ -114,7 +114,7 @@ let atompart_of_id id = fst (repr_ident id) let out_name = function | Name id -> id - | Anonymous -> failwith "out_name: expects a defined name" + | Anonymous -> failwith "Nameops.out_name" let name_fold f na a = match na with diff --git a/library/nameops.mli b/library/nameops.mli index c90aa7c78..fb26c1910 100644 --- a/library/nameops.mli +++ b/library/nameops.mli @@ -26,6 +26,8 @@ val lift_subscript : identifier -> identifier val forget_subscript : identifier -> identifier val out_name : name -> identifier +(** [out_name] associates [id] to [Name id]. Raises [Failure "Nameops.out_name"] + otherwise. *) val name_fold : (identifier -> 'a -> 'a) -> name -> 'a -> 'a val name_iter : (identifier -> unit) -> name -> unit |