changeset 24633 | 0da8519100ae |
parent 24631 | 09c8eaa7f326 |
child 24636 | 85131b98ee68 |
24632:6a4473a8f19d | 24633:0da8519100ae |
---|---|
1920 self nextPutByte:0. |
1920 self nextPutByte:0. |
1921 i := i - 1 |
1921 i := i - 1 |
1922 ]. |
1922 ]. |
1923 |
1923 |
1924 i == 1 ifTrue:[ |
1924 i == 1 ifTrue:[ |
1925 ^ self nextPutByte:v |
1925 self nextPutByte:v. |
1926 ^ self |
|
1926 ]. |
1927 ]. |
1927 |
1928 |
1928 [i > 0] whileTrue:[ |
1929 [i > 0] whileTrue:[ |
1929 self nextPutByte:(v digitAt:i). |
1930 self nextPutByte:(v digitAt:i). |
1930 i := i - 1 |
1931 i := i - 1 |