# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1370284778 -7200
# Node ID 854a02a2bebc0c58024ed7de60758d518ccdcdf3
# Parent  8d39f7b4eb52c9afb06abd754e7566ab084dcd9d
class: ReadStream
changed:5 methods
(foo+1) > x is the same as foo >= x

diff -r 8d39f7b4eb52 -r 854a02a2bebc ReadStream.st
--- a/ReadStream.st	Mon Jun 03 20:39:21 2013 +0200
+++ b/ReadStream.st	Mon Jun 03 20:39:38 2013 +0200
@@ -209,7 +209,7 @@
         }
     }
 %}.
-    ((position + 1) > readLimit) ifTrue:[^ self pastEndRead].
+    (position >= readLimit) ifTrue:[^ self pastEndRead].
     ret := collection at:(position + 1).
     position := position + 1.
     ^ ret
@@ -360,7 +360,7 @@
         }
     }
 %}.
-    ((position + 1) > readLimit) ifTrue:[^ self pastEndRead].
+    (position >= readLimit) ifTrue:[^ self pastEndRead].
     ret := collection at:(position + 1).
     position := position + 1.
     ^ ret asInteger
@@ -556,9 +556,9 @@
         }
     }
 %}.
-    ((position + 1) > readLimit) ifTrue:[^ self pastEndRead].
+    (position >= readLimit) ifTrue:[^ self pastEndRead].
     position := position + 1.
-    ((position + 1) > readLimit) ifTrue:[^ self pastEndRead].
+    (position >= readLimit) ifTrue:[^ self pastEndRead].
     ^ collection at:(position + 1)
 !
 
@@ -603,7 +603,7 @@
         }
     }
 %}.
-    ((position + 1) > readLimit) ifTrue:[^ self pastEndRead].
+    (position >= readLimit) ifTrue:[^ self pastEndRead].
     ^ collection at:(position + 1)
 !
 
@@ -653,7 +653,7 @@
         }
     }
 %}.
-    ((position + 1) > readLimit) ifTrue:[^ nil].
+    (position >= readLimit) ifTrue:[^ nil].
     ^ collection at:(position + 1)
 !
 
@@ -847,10 +847,10 @@
 !ReadStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.68 2013-06-03 18:30:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.69 2013-06-03 18:39:38 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.68 2013-06-03 18:30:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.69 2013-06-03 18:39:38 cg Exp $'
 ! !