<creature> ( n color -- creature )

Vocabulary

benchmark.chameneos-redux

Inputs

n	an object
color	an object

Outputs

creature

an object

Definition

USING: accessors concurrency.mailboxes kernel ;

IN: benchmark.chameneos-redux

: <creature> ( n color -- creature )
    creature new swap >>color swap >>n 0 >>count 0 >>self-count
    <mailbox> >>mailbox ;