steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

more fixes to concurrency 'self' support

release
chris.double 2006-07-27 00:42:27 +00:00
parent 2fad8cc734
commit ec92233637
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/concurrency/concurrency.factor
View File

@ -161,7 +161,7 @@ TUPLE: process node links pid mailbox ;
: self ( -- process ) : self ( -- process )
#! Returns the contents of the 'self-process' variables which #! Returns the contents of the 'self-process' variables which
#! is the process object for the current process. #! is the process object for the current process.
\ self get-global ; \ self get ;
: init-main-process ( -- ) : init-main-process ( -- )
#! Setup the main process. #! Setup the main process.
@ -173,7 +173,7 @@ init-main-process
#! Calls the quotation with 'self' set #! Calls the quotation with 'self' set
#! to the given process. #! to the given process.
[ [
\ self set-global \ self set
] make-hash ] make-hash
swap bind ; swap bind ;