run-meeting-place ( meeting-place -- )

Vocabulary

benchmark.chameneos-redux

Inputs

meeting-place

an object

Outputs

None

Definition

USING: accessors concurrency.mailboxes kernel math sequences ;

IN: benchmark.chameneos-redux

: run-meeting-place ( meeting-place -- )
    [ 1 - ] change-count dup count>> 0 < [
        mailbox>> mailbox-get-all
        [ f swap mailbox>> mailbox-put ] each
    ] [
        [
            mailbox>> 2 swap [ mailbox-get ] curry replicate
            creature-meeting
        ] [ run-meeting-place ] bi
    ] if ;