@@ -1,19 +1,20 @@
- /* ==================================================================
-    FILE: wishrl.c
-    $Id$
-    ---
-    tclreadline -- gnu readline for tcl
-    http://www.zellner.org/tclreadline/
-    Copyright (c) 1998 - 2014, Johannes Zellner <johannes@zellner.org>
-    This software is copyright under the BSD license.
-    ================================================================== */
+ /* ================================================================== *
+  * FILE: wishrl.c
+  * $Id$
+  * ---
+  * tclreadline -- gnu readline for tcl
+  * http://www.zellner.org/tclreadline/
+  * Copyright (c) 1998 - 2014, Johannes Zellner <johannes@zellner.org>
+  * This software is copyright under the BSD license.
+  * ================================================================== */
 
 #ifdef HAVE_CONFIG_H
-#   include "config.h"
+#  include "config.h"
 #endif
 
+#include <stdlib.h>
 #include <tcl.h>
 #include <tk.h>
 #include <tclreadline.h>
 
 extern int Tclreadline_Init(Tcl_Interp *interp);
@@ -42,16 +43,16 @@
     Tcl_SetVar(interp, "tcl_rcFileName", "~/.wishrc", TCL_GLOBAL_ONLY);
 #endif
     sprintf(file, "%s/tclreadlineInit.tcl", TCLRL_LIBRARY);
     if ((status = Tcl_EvalFile(interp, file))) {
         fprintf(stderr, "(TclreadlineAppInit) unable to eval %s\n", file);
-        exit (1);
+        exit (EXIT_FAILURE);
     }
     return TCL_OK;
 }
 
 int
 main(int argc, char *argv[])
 {
     Tk_Main(argc, argv, TclreadlineAppInit);
-    return 0;
+    return EXIT_SUCCESS;
 }