try-meet ( meeting-place creature -- )


Vocabulary
benchmark.chameneos-redux

Inputs
meeting-placean object
creaturean object


Outputs
None

Definition
USING: accessors concurrency.mailboxes kernel math ;

IN: benchmark.chameneos-redux

: try-meet ( meeting-place creature -- )
over count>> 0 <
[ 2drop ] [
[ swap mailbox>> mailbox-put ]
[ nip mailbox>> mailbox-get drop ] [ try-meet ] 2tri
] if ;