diff options
| author | ppedrot | 2013-05-14 08:08:43 +0000 |
|---|---|---|
| committer | ppedrot | 2013-05-14 08:08:43 +0000 |
| commit | 0c028c3446375ab70b5b8733d284b7f5426526c2 (patch) | |
| tree | 05009e50b2cd0daaab3e0c5d4542ab545aa65ec6 /kernel/names.ml | |
| parent | 48b9ffdf4a99a87242c77a8c2e63b0331b895b69 (diff) | |
Replacing Id.check with Id.is_valid, as its sole use was under
an ugly try ... with construct.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16516 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/names.ml')
| -rw-r--r-- | kernel/names.ml | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/kernel/names.ml b/kernel/names.ml index 87249dec10..fbd26ca3d8 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -38,9 +38,9 @@ struct in Option.iter iter (Unicode.ident_refutation x) - let check x = - let iter (_, x) = Errors.error x in - Option.iter iter (Unicode.ident_refutation x) + let is_valid s = match Unicode.ident_refutation s with + | None -> true + | Some _ -> false let of_string s = let () = check_soft s in @@ -630,8 +630,6 @@ type identifier = Id.t let id_eq = Id.equal let id_ord = Id.compare -let check_ident_soft = Id.check_soft -let check_ident = Id.check let string_of_id = Id.to_string let id_of_string = Id.of_string |