[Win32forth-cvs] win32forth/src EXCEPTIO.F, 1.7, 1.8 Shell.f, 1.3, 1.4

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23491/win32forth/src

Modified Files:
	EXCEPTIO.F Shell.f 
Log Message:
gah: Improved multi-tasing performance

Index: Shell.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Shell.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Shell.f	12 Aug 2005 16:36:13 -0000	1.3
--- Shell.f	20 Oct 2007 20:58:56 -0000	1.4
***************
*** 5,9 ****
  \ Moved here from UTILS.F and partly rewritten by Dirk Busch
  \ Dienstag, März 29 2005
!  
  cr .( Loading Shell Words...)
  
--- 5,9 ----
  \ Moved here from UTILS.F and partly rewritten by Dirk Busch
  \ Dienstag, März 29 2005
! 
  cr .( Loading Shell Words...)
  
***************
*** 82,86 ****
          INFINITE hProcess call WaitForInputIdle WAIT_FAILED <>
          if   begin
!                KEY? drop \ keep the Win32Forth message loop alive
                 1 hProcess call WaitForSingleObject WAIT_OBJECT_0 =
               until
--- 82,86 ----
          INFINITE hProcess call WaitForInputIdle WAIT_FAILED <>
          if   begin
!                winpause \ keep the Win32Forth message loop alive
                 1 hProcess call WaitForSingleObject WAIT_OBJECT_0 =
               until
***************
*** 320,322 ****
                  >R Prepend<home>\ temp$ +place  \ file:<absolute path>\<file name>.<ext>
                  temp$ count r> "web-link ;
-