reset_name: try / with juste autour de find_entry_p (=> propage les

vraies erreurs de reset_to s'il y en a)


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

1 files changed, 7 insertions, 5 deletions

diff --git a/library/lib.ml b/library/lib.ml
index 712292812d..a22f893535 100644
--- a/library/lib.ml
+++ b/library/lib.ml
@@ -188,11 +188,13 @@ let reset_to sp =
   recache_context after
 
 let reset_name id =
-  try
-    let (sp,_) = find_entry_p (fun (sp,_) -> id = basename sp) in
-    reset_to sp
-  with Not_found ->
-    error (string_of_id id ^ ": no such entry")
+  let (sp,_) = 
+    try
+      find_entry_p (fun (sp,_) -> id = basename sp)
+    with Not_found ->
+      error (string_of_id id ^ ": no such entry")
+  in
+  reset_to sp
 
 let is_section_p sp = dirpath_prefix_of sp !path_prefix