[Win32forth-cvs] win32forth-stc/src/lib task.f,1.2,1.3

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

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

Modified Files:
	task.f 
Log Message:
gah:Fix a bug where code definitions wouldn't inline. Modified OFFSET to work with the DOES> and inlined a short word in task.f

Index: task.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/lib/task.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** task.f	30 Oct 2006 09:15:15 -0000	1.2
--- task.f	7 Nov 2006 11:04:50 -0000	1.3
***************
*** 64,68 ****
  : task>parm@    ( task-block -- parm )                       \ W32F    Task
  \ *G Fetch the parameter from the task-block.
!                 task>parm @ ;
  
  \ -------------------- Task Start Initialisation --------------------
--- 64,68 ----
  : task>parm@    ( task-block -- parm )                       \ W32F    Task
  \ *G Fetch the parameter from the task-block.
!                 task>parm @ compilation> postpone task>parm postpone @ ;
  
  \ -------------------- Task Start Initialisation --------------------