From 347b5ca0aced92a3296388c08aba0352b5c56c64 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Fri, 3 Nov 2000 20:07:00 +0000
Subject: corrected pointer reference to mainLoopProc execution

---
 generic/tclMain.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/generic/tclMain.c b/generic/tclMain.c
index 20ed566..1ea4f3f 100644
--- a/generic/tclMain.c
+++ b/generic/tclMain.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclMain.c,v 1.9 2000/11/03 20:01:16 hobbs Exp $
+ * RCS: @(#) $Id: tclMain.c,v 1.10 2000/11/03 20:07:00 hobbs Exp $
  */
 
 #include "tcl.h"
@@ -349,7 +349,7 @@ Tcl_Main(argc, argv, appInitProc)
 	    Tcl_DStringInit(&tsdPtr->command);
 	    Tcl_DStringInit(&tsdPtr->line);
 
-	    mainLoopProc();
+	    (*mainLoopProc)();
 	    mainLoopProc = NULL;
 	    break;
 	}
@@ -376,7 +376,7 @@ Tcl_Main(argc, argv, appInitProc)
 	 * events at this point.
 	 */
 
-	mainLoopProc();
+	(*mainLoopProc)();
     }
     if (commandPtr != NULL) {
 	Tcl_DecrRefCount(commandPtr);
-- 
cgit v0.12