[Win32forth-cvs] win32forth/src Primutil.f,1.39,1.40

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv20047

Modified Files:
	Primutil.f 
Log Message:
Jos: To prevent erors in the taskdemo (demo1)

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.39
retrieving revision 1.40
diff -C2 -d -r1.39 -r1.40
*** Primutil.f	20 Oct 2008 21:18:42 -0000	1.39
--- Primutil.f	25 Oct 2008 15:17:24 -0000	1.40
***************
*** 782,786 ****
  \ any pending message can be handled.
                  7 cells LocalAlloc: pMsg
!                 BEGIN  PM_REMOVE 0 0 0 pMsg  Call PeekMessage
                  WHILE  pMsg HandleMessages drop
                  REPEAT ;
--- 782,786 ----
  \ any pending message can be handled.
                  7 cells LocalAlloc: pMsg
!                 BEGIN  0 ms PM_REMOVE 0 0 0 pMsg  Call PeekMessage
                  WHILE  pMsg HandleMessages drop
                  REPEAT ;