Index: generic/tclMain.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclMain.c,v
retrieving revision 1.11
diff -c -r1.11 tclMain.c
*** generic/tclMain.c	2000/11/03 20:30:27	1.11
--- generic/tclMain.c	2001/04/04 22:40:06
***************
*** 404,410 ****
   */
  
  void
! Tcl_SetMainLoop(Tcl_MainLoopProc *proc)
  {
      mainLoopProc = proc;
  }
--- 404,411 ----
   */
  
  void
! Tcl_SetMainLoop(proc)
!     Tcl_MainLoopProc* proc;
  {
      mainLoopProc = proc;
  }
