[Win32forth-cvs] win32forth/src/lib task.f,1.15,1.16

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

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

Modified Files:
	task.f 
Log Message:
Modified wait in demo to deal with messages. Deprecated task-sleep (equivalent to ANSI ms)

Index: task.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/task.f,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** task.f	31 Oct 2007 18:51:39 -0000	1.15
--- task.f	22 Aug 2008 21:12:25 -0000	1.16
***************
*** 139,143 ****
  \ *G Suspend the current task for at least n msec. If n is INFINITE (-1) the task is suspended
  \ ** forever.
!                 call Sleep drop ;
  
  : (task-block)  ( parm cfa-task addr -- len )                \ W32F    Task
--- 139,143 ----
  \ *G Suspend the current task for at least n msec. If n is INFINITE (-1) the task is suspended
  \ ** forever.
!                 ms ; deprecated
  
  : (task-block)  ( parm cfa-task addr -- len )                \ W32F    Task