7 lines
266 B
Text
7 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].
|