--- a/ReadStream.st	Tue Jun 25 21:39:33 1996 +0200
+++ b/ReadStream.st	Wed Jun 26 09:37:38 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Streams'
 !
 
-!ReadStream class methodsFor:'documentation'!
+!ReadStream  class methodsFor:'documentation'!
 
 copyright
 "
@@ -538,38 +538,6 @@
 %}
 .
     ^ super skipThrough:anObject
-!
-
-skipToAll:aCollection
-    "skip for the sequence given by the argument, aCollection;
-     return nil if not found, self otherwise. On a successful match, next read
-     will return elements of aCollection."
-
-    |oldPos buffer l first idx|
-
-    oldPos := self position.
-    l := aCollection size.
-    first := aCollection at:1.
-    [self atEnd] whileFalse:[
-	buffer := self next:l.
-	buffer = aCollection ifTrue:[
-	    self position:(self position - l).
-	    ^ self
-	].
-	idx := buffer indexOf:first startingAt:2.
-	idx == 0 ifFalse:[
-	    self position:(self position - l + idx - 1)
-	]
-    ].
-    self position:oldPos.
-    ^ nil
-
-    "
-     |s|
-     s := ReadStream on:'12345678901234567890'.
-     s skipToAll:'901'.
-     s next:4
-    "
 ! !
 
 !ReadStream methodsFor:'writing'!
@@ -580,8 +548,8 @@
     self shouldNotImplement
 ! !
 
-!ReadStream class methodsFor:'documentation'!
+!ReadStream  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.29 1996-05-18 15:29:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.30 1996-06-26 07:37:38 cg Exp $'
 ! !