new accessors
parent
acc3badbe7
commit
052b7b9155
|
@ -37,7 +37,7 @@ M: remote-process send ( message thread -- )
|
||||||
send-remote-message ;
|
send-remote-message ;
|
||||||
|
|
||||||
M: thread (serialize) ( obj -- )
|
M: thread (serialize) ( obj -- )
|
||||||
thread-id local-node get-global <remote-process>
|
id>> local-node get-global <remote-process>
|
||||||
(serialize) ;
|
(serialize) ;
|
||||||
|
|
||||||
: stop-node ( node -- )
|
: stop-node ( node -- )
|
||||||
|
|
Loading…
Reference in New Issue