6 lines
225 B
Smalltalk
6 lines
225 B
Smalltalk
|
[s atEnd] whileFalse: [s next. ...].
|
||
|
|
[foo notNil] whileTrue: [s next. ...].
|
||
|
|
[...] doWhile: [ ... someBooleanExpression ].
|
||
|
|
[...] doUntil: [ ... someBooleanExpression ].
|
||
|
|
[:exit | ... cold ifTrue:[exit value]. ...] loopWithExit
|