diff --git a/contrib/concurrency/concurrency.factor b/contrib/concurrency/concurrency.factor index 96fd75d3e3..0061886036 100644 --- a/contrib/concurrency/concurrency.factor +++ b/contrib/concurrency/concurrency.factor @@ -161,7 +161,7 @@ TUPLE: process node links pid mailbox ; : self ( -- process ) #! Returns the contents of the 'self-process' variables which #! is the process object for the current process. - \ self get-global ; + \ self get ; : init-main-process ( -- ) #! Setup the main process. @@ -173,7 +173,7 @@ init-main-process #! Calls the quotation with 'self' set #! to the given process. [ - \ self set-global + \ self set ] make-hash swap bind ;