simplifications de code

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@69 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 4 insertions, 6 deletions

diff --git a/lib/util.ml b/lib/util.ml
index a26cb60d80..8e3eb881f6 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -44,12 +44,10 @@ let parse_section_path s =
     with
       | Not_found -> invalid_arg "parse_section_path"
   in
-  if len = 0 || String.get s 0 <> '#' then
-    invalid_arg "parse_section_path"
-  else
-    let dirs,n = decoupe_dirs 1 in
-    let id,k = decoupe_kind n in
-    dirs,id,k
+  if len = 0 || String.get s 0 <> '#' then invalid_arg "parse_section_path";
+  let dirs,n = decoupe_dirs 1 in
+  let id,k = decoupe_kind n in
+  dirs,id,k
 
 module Stringmap = Map.Make(struct type t = string let compare = compare end)