From e078e5301081ee2857ae1b59aa61447375cd3368 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Tue, 21 Nov 2000 17:13:25 +0000
Subject: 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
---
 library/lib.ml | 12 +++++++-----
 1 file 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
 
-- 
cgit v1.2.3