8 lines
266 B
Text
8 lines
266 B
Text
|
collections define: #Queue &parents: {ExtensibleArray}.
|
||
|
|
|
||
|
|
q@(Queue traits) isEmpty [resend].
|
||
|
|
q@(Queue traits) push: obj [q addLast: obj].
|
||
|
|
q@(Queue traits) pop [q removeFirst].
|
||
|
|
q@(Queue traits) pushAll: c [q addAllLast: c].
|
||
|
|
q@(Queue traits) pop: n [q removeFirst: n].
|