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

concurreny fix to set 'self' process in global namespace

release
chris.double 2006-07-26 23:23:10 +00:00
parent a8853daf1d
commit 2fad8cc734
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
contrib/concurrency/concurrency.factor
View File

@ -158,17 +158,14 @@ TUPLE: process node links pid mailbox ;
#! that process terminates. #! that process terminates.
localnode swap unit gensym unparse make-mailbox <process> ; localnode swap unit gensym unparse make-mailbox <process> ;
#! The 'self-process' variable holds the currently executing process.
SYMBOL: self-process
: 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-process get ; \ self get-global ;
: init-main-process ( -- ) : init-main-process ( -- )
#! Setup the main process. #! Setup the main process.
make-process self-process set ; make-process \ self set-global ;
init-main-process init-main-process
@ -176,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-process set \ self set-global
] make-hash ] make-hash
swap bind ; swap bind ;
@ -375,7 +372,7 @@ SYMBOL: quit-cc
#! and jumping back into it from a spawn and keeping the 'self' #! and jumping back into it from a spawn and keeping the 'self'
#! variable correct. It's a workaround until I can find out how to #! variable correct. It's a workaround until I can find out how to
#! stop 'self' from being clobbered back to its old value. #! stop 'self' from being clobbered back to its old value.
[ ] callcc1 dup process? [ self-process set f ] when ; [ ] callcc1 dup process? [ \ self set-global f ] when ;
: call-server-cc ( server-cc -- ) : call-server-cc ( server-cc -- )
#! Calls the server continuation passing the current 'self' #! Calls the server continuation passing the current 'self'