nState
encapsulated in “cursor”
n“This is Smalltalk
again.”
n| hocusPocusPrestoOdometer
|
nhocusPocusPrestoOdometer :=
Odometer on: ‘hocuspocuspresto’.
n[ hocusPocusPrestoOdometer
atEnd ] whileFalse: [
n | hocus pocus presto |
n hocus := hocusPocusPrestoOdometer
valueFor: ‘hocus’.
n . . .
n hocusPocusPrestoOdometer next.
n].