equal
deleted
inserted
replaced
520 ! ! |
520 ! ! |
521 |
521 |
522 !Queue methodsFor:'accessing-writing'! |
522 !Queue methodsFor:'accessing-writing'! |
523 |
523 |
524 nextPut:anObject |
524 nextPut:anObject |
525 "enter anObject into the queue - if the queue is full, report an error" |
525 "enter anObject into the queue - if the queue is full, report an error. |
|
526 Answer anObject" |
526 |
527 |
527 |sz pos "{ Class: SmallInteger }" | |
528 |sz pos "{ Class: SmallInteger }" | |
528 |
529 |
529 sz := contentsArray size. |
530 sz := contentsArray size. |
530 pos := writePosition. |
531 pos := writePosition. |