clean up spaces and tabs

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

1 files changed, 4 insertions, 4 deletions

diff --git a/otherlibs/labltk/support/cltkVar.c b/otherlibs/labltk/support/cltkVar.c
index 83fedbafd..674b8e9db 100644
--- a/otherlibs/labltk/support/cltkVar.c
+++ b/otherlibs/labltk/support/cltkVar.c
@@ -39,7 +39,7 @@ CAMLprim value camltk_getvar(value var)
 
   if (s == NULL)
     tk_error(cltclinterp->result);
-  else 
+  else
     return(tcl_string_to_caml(s));
 }
 
@@ -47,7 +47,7 @@ CAMLprim value camltk_setvar(value var, value contents)
 {
   char *s;
   char *stable_var = NULL;
-  char *utf_contents; 
+  char *utf_contents;
   CheckInit();
 
   /* SetVar makes a copy of the contents. */
@@ -58,14 +58,14 @@ CAMLprim value camltk_setvar(value var, value contents)
   s = Tcl_SetVar(cltclinterp,stable_var, utf_contents,
                    TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG);
   stat_free(stable_var);
-  if( s == utf_contents ){ 
+  if( s == utf_contents ){
     tk_error("camltk_setvar: Tcl_SetVar returned strange result. Call the author of mlTk!");
   }
   stat_free(utf_contents);
 
   if (s == NULL)
     tk_error(cltclinterp->result);
-  else 
+  else
     return(Val_unit);
 }