db4
Slava Pestov 2008-02-27 22:23:01 -06:00
parent eb8207a784
commit 13290fcd82
1 changed files with 1 additions and 1 deletions

View File

@ -32,7 +32,7 @@ M: thread send ( message thread -- )
my-mailbox swap mailbox-get-timeout? ?linked ; inline
: rethrow-linked ( error process supervisor -- )
>r <linked> r> send ;
>r <linked-error> r> send ;
: spawn-linked ( quot name -- thread )
my-mailbox spawn-linked-to ;