Stream.st
changeset 24633 0da8519100ae
parent 24631 09c8eaa7f326
child 24636 85131b98ee68
equal deleted inserted replaced
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