StringCollection.st
changeset 22354 113a6a911eb5
parent 22278 dd1e56c2ad85
child 22573 0749ebab7a10
--- a/StringCollection.st	Sun Nov 12 20:15:48 2017 +0100
+++ b/StringCollection.st	Tue Nov 14 16:41:52 2017 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -215,7 +213,8 @@
     numberOfLines := aString occurrencesOf:delimiter.
     numberOfLines == 0 ifTrue:[
         "/ check if it's a return-delimited string
-        (aString occurrencesOf:(Character return)) > 0 ifTrue:[
+        numberOfLines := aString occurrencesOf:(Character return).
+        numberOfLines > 0 ifTrue:[
             delimiter := Character return.
         ].
     ].
@@ -231,7 +230,7 @@
         stop == 0 ifTrue:[
             self at:lineNr put:(aString copyFrom:start).
             self from:lineNr+1 to:numberOfLines put:''.
-            ^ self.
+            ^ self
         ].
 
         self at:lineNr put:(aString copyFrom:start to:stop-1).
@@ -240,6 +239,7 @@
 
     "Modified: / 25-07-2012 / 18:52:58 / cg"
     "Modified (format): / 13-02-2017 / 20:31:40 / cg"
+    "Modified (format): / 14-11-2017 / 16:26:27 / mawalch"
 ! !
 
 !StringCollection methodsFor:'copying'!