     mailbox-data dlist-empty? ;
 
 : mailbox-put ( obj mailbox -- )
-    [ mailbox-data dlist-push-end ] keep
+    [ mailbox-data push-back ] keep
     [ mailbox-threads ] keep
     V{ } clone swap set-mailbox-threads
     [ thread-continuation schedule-thread ] each yield ;


: mailbox-get?* ( pred mailbox timeout -- obj )
    2over >r >r (mailbox-block-unless-pred) r> r>
    mailbox-data dlist-remove ; inline

: mailbox-get? ( pred mailbox -- obj )
    f mailbox-get?* ;

C: <process> process

GENERIC: send ( message process -- )

<PRIVATE
: make-process ( -- process )
