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

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

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

Modified Files:
	task.f 
Log Message:
gah:Added (make-lock) including documenting.

Index: task.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/task.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** task.f	4 Oct 2006 12:00:03 -0000	1.3
--- task.f	16 Oct 2006 11:22:21 -0000	1.4
***************
*** 261,272 ****
  external
  
  in-system
  
  : make-lock     ( compiling: -<name>-  --  runtime: -- lock ) \ W32F    Lock
  \ *G Create a new lock. When executed the lock returns it's identifier.
!                 create
!                 here lock-size ( 6 cells ) allot  \ gah
!                 lock-list link,                \ add to list of locks gah
!                 init-lock ;
  
  in-application
--- 261,277 ----
  external
  
+ : (make-lock)   ( -- lock )                                   \ W32F    Lock
+ \ *G Make a new lock, and return it's identifier.
+                 here dup
+                 lock-size ( 6 cells ) allot
+                 lock-list link, \ add to list of locks
+                 init-lock \ Initialise the critical section
+                 ;
+ 
  in-system
  
  : make-lock     ( compiling: -<name>-  --  runtime: -- lock ) \ W32F    Lock
  \ *G Create a new lock. When executed the lock returns it's identifier.
!                 create  (make-lock) drop ;
  
  in-application