PositionableStream.st
changeset 24744 2d27b0eb2d4a
parent 23895 d49a46365ed5
child 24766 9e09c9c8cb95
equal deleted inserted replaced
24743:3199983039fd 24744:2d27b0eb2d4a
   160 !PositionableStream methodsFor:'Compatibility-Squeak'!
   160 !PositionableStream methodsFor:'Compatibility-Squeak'!
   161 
   161 
   162 back
   162 back
   163         "Go back one element and return it."
   163         "Go back one element and return it."
   164 
   164 
   165         self position = 0 ifTrue: [self positionError].
   165         self position == 0 ifTrue: [self positionError].
   166         self skip: -1.
   166         self skip: -1.
   167         ^ self peek
   167         ^ self peek
   168 
   168 
   169     "Created: / 03-10-2014 / 03:06:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   169     "Created: / 03-10-2014 / 03:06:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   170 !
   170 !