clean up spaces and tabs

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

1 files changed, 5 insertions, 5 deletions

diff --git a/otherlibs/labltk/compiler/ppparse.ml b/otherlibs/labltk/compiler/ppparse.ml
index 3d1ee2af4..630d675de 100644
--- a/otherlibs/labltk/compiler/ppparse.ml
+++ b/otherlibs/labltk/compiler/ppparse.ml
@@ -19,18 +19,18 @@ exception Error of string
 let parse_channel ic =
   let lexbuf = Lexing.from_channel ic in
   try
-    Ppyac.code_list Pplex.token lexbuf 
+    Ppyac.code_list Pplex.token lexbuf
   with
   | Pplex.Error s ->
-      let loc_start = Lexing.lexeme_start lexbuf 
+      let loc_start = Lexing.lexeme_start lexbuf
       and loc_end = Lexing.lexeme_end lexbuf
       in
-      raise (Error (Printf.sprintf "parse error at char %d, %d: %s" 
+      raise (Error (Printf.sprintf "parse error at char %d, %d: %s"
                  loc_start loc_end s))
   | Parsing.Parse_error ->
-      let loc_start = Lexing.lexeme_start lexbuf 
+      let loc_start = Lexing.lexeme_start lexbuf
       and loc_end = Lexing.lexeme_end lexbuf
       in
-      raise (Error (Printf.sprintf "parse error at char %d, %d" 
+      raise (Error (Printf.sprintf "parse error at char %d, %d"
                 loc_start loc_end))
 ;;