[Win32forth-cvs] win32forth/src/lib task.f,1.12,1.13

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

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

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

Index: task.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/task.f,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** task.f	25 Sep 2006 11:44:34 -0000	1.12
--- task.f	16 Oct 2006 11:22:22 -0000	1.13
***************
*** 223,234 ****
  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
--- 223,239 ----
  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