We need slightly different startup for a tclkit than for a stardll. Define KIT_DLL...

git-svn-id: svn://svn.equi4.com/kitgen/trunk@4093 9e558909-932a-0410-a563-af77432da1eb

diff --git a/kitInit.c b/kitInit.c
index d791a736bb039be691b51ad13b67410acd15a3af..3e96a9761beb2a525ab8f048e555ad37ae3504e2 100644 (file)
--- a/kitInit.c
+++ b/kitInit.c
@@ -227,12 +227,12 @@ TclKit_AppInit(Tcl_Interp *interp)
        Tcl_DecrRefCount(evobjPtr);
     }
 
-#if 1 /* jcw's original code */
+#ifdef KIT_DLL
     TclSetPreInitScript(preInitCmd);
     if ((Tcl_EvalEx(interp, appInitCmd, -1, TCL_EVAL_GLOBAL) == TCL_ERROR)
            || (Tcl_Init(interp) == TCL_ERROR))
         goto error;
-#else /* what I am using */
+#else /* not a dll */
     TclSetPreInitScript(appInitCmd);
     if (Tcl_Init(interp) == TCL_ERROR)
         goto error;