Introducing a specific exception for formatted input functions.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4922 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 5 insertions, 3 deletions

diff --git a/stdlib/scanf.ml b/stdlib/scanf.ml
index 86af010e9..648d27213 100644
--- a/stdlib/scanf.ml
+++ b/stdlib/scanf.ml
@@ -130,12 +130,14 @@ let from_function f = create f;;
 end;;
 
 (** Formatted input functions. *)
+exception Scan_failure of string;;
 
 let bad_input ib s =
   let i = Scanning.char_count ib in
-  failwith
-    (Printf.sprintf "scanf: bad input at char number %i%s"
-       i (if s = "" then s else Printf.sprintf ", while scanning %s" s));;
+  raise
+    (Scan_failure
+       (Printf.sprintf "scanf: bad input at char number %i%s"
+          i (if s = "" then s else Printf.sprintf ", while scanning %s" s)));;
 
 let bad_input_buff ib = bad_input ib (Scanning.token ib);;