[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.82,1.83

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

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory vz-cvs-4.sog:/tmp/cvs-serv3094

Modified Files:
	fkernel.f 
Log Message:
Fixed bug in Task-status?

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.82
retrieving revision 1.83
diff -C2 -d -r1.82 -r1.83
*** fkernel.f	17 Nov 2011 19:36:22 -0000	1.82
--- fkernel.f	23 Dec 2011 00:42:24 -0000	1.83
***************
*** 2036,2040 ****
  : Task-Status?   ( -- f )
  \ *G Test task-status bit.
!                  Task-Status or 0 <> ;
  
  1 | Constant Main-Task
--- 2036,2040 ----
  : Task-Status?   ( -- f )
  \ *G Test task-status bit.
!                  Task-Status @ and 0 <> ;
  
  1 | Constant Main-Task