7 lines
246 B
Text
7 lines
246 B
Text
|
p@(Process traits) forkAndDo: b
|
||
|
|
[| ret |
|
||
|
|
(ret := lobby cloneSystem)
|
||
|
|
first ifTrue: [p pipes addLast: ret second. ret second]
|
||
|
|
ifFalse: [[p pipes clear. p pipes addLast: ret second. b applyWith: ret second] ensure: [lobby quit]]
|
||
|
|
].
|