Release coccinelle-0.2.1-rc1

[bpt/coccinelle.git] / commons / backtrace.ml

diff --git a/commons/backtrace.ml b/commons/backtrace.ml
index 9a0ee50..1d80d70 100644 (file)
--- a/commons/backtrace.ml
+++ b/commons/backtrace.ml
@@ -3,9 +3,9 @@ open Common
 (* This function is especially useful with lablgtk which intercepts
  * the exception and forbid them to reach the toplevel, or with LFS
  * where I can not allow any exception to stop mount.lfs.
- * 
+ *
  * src: Jane Street Core library.
- * update: Normally no more needed in OCaml 3.11 as part of the 
+ * update: Normally no more needed in OCaml 3.11 as part of the
  *  default runtime.
  *)
 external print : unit -> unit = "print_exception_backtrace_stub" "noalloc"
@@ -18,7 +18,7 @@ external print : unit -> unit = "print_exception_backtrace_stub" "noalloc"
 exception MyNot_Found
 
 let foo1 () =
-  if 1=1 
+  if 1=1
   then raise MyNot_Found
   else 2
 
@@ -27,7 +27,7 @@ let foo2 () =
 
 let test_backtrace () =
   (try ignore(foo2 ())
-  with exn -> 
+  with exn ->
     pr2 (Common.exn_to_s exn);
     print();
     failwith "other exn"
@@ -35,7 +35,7 @@ let test_backtrace () =
   print_string "ok cool\n";
   ()
 
-let actions () = 
+let actions () =
   [
   "-test_backtrace", "   ",
   Common.mk_action_0_arg test_backtrace;