try-meet ( meeting-place creature -- )

Vocabulary

benchmark.chameneos-redux

Inputs

meeting-place	an object
creature	an 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 ;