diff --git a/kernel/ArrayColl.st b/kernel/ArrayColl.st index a321ba9..331556e 100644 --- a/kernel/ArrayColl.st +++ b/kernel/ArrayColl.st @@ -309,8 +309,8 @@ externally; I will not rearrange the order of the elements.'> ] with: aSequenceableCollection collect: aBlock [ - "Evaluate aBlock for each pair of elements took respectively from the re- - ceiver and from aSequenceableCollection; answer a collection of the same + "Evaluate aBlock for each pair of elements took respectively from the receiver + and from aSequenceableCollection; answer a collection of the same kind of the receiver, made with the block's return values. Fail if the receiver has not the same size as aSequenceableCollection." diff --git a/kernel/Behavior.st b/kernel/Behavior.st index f855b57..52f9467 100644 --- a/kernel/Behavior.st +++ b/kernel/Behavior.st @@ -292,16 +292,16 @@ method dictionary, and iterating over the class hierarchy.'> ] compileAllSubclasses: aNotifier [ - "Recompile all selector of all subclasses. Notify aNotifier by sen- - ding #error: messages if something goes wrong." + "Recompile all selector of all subclasses. Notify aNotifier by sending + #error: messages if something goes wrong." self allSubclassesDo: [:subclass | subclass compileAll: aNotifier] ] compileAllSubclasses [ - "Recompile all selector of all subclasses. Notify aNotifier by sen- - ding #error: messages if something goes wrong." + "Recompile all selector of all subclasses. Notify aNotifier by sending + #error: messages if something goes wrong." self allSubclassesDo: [:subclass | subclass compileAll] @@ -388,8 +388,8 @@ method dictionary, and iterating over the class hierarchy.'> ] compileAll: aNotifier [ - "Recompile all selectors in the receiver. Notify aNotifier by sen- - ding #error: messages if something goes wrong." + "Recompile all selectors in the receiver. Notify aNotifier by sending + #error: messages if something goes wrong." self methodDictionary notNil diff --git a/kernel/BlkClosure.st b/kernel/BlkClosure.st index 0f6d72c..8d11e72 100644 --- a/kernel/BlkClosure.st +++ b/kernel/BlkClosure.st @@ -319,8 +319,7 @@ creation of Processes from blocks.'> ] whileTrue: aBlock [ - "Evaluate the receiver. If it returns true, evaluate aBlock and re- - start" + "Evaluate the receiver. If it returns true, evaluate aBlock and restart" "When the receiver is a block expression, whileTrue: is optimized by the compiler" @@ -331,8 +330,7 @@ creation of Processes from blocks.'> ] whileFalse: aBlock [ - "Evaluate the receiver. If it returns false, evaluate aBlock and re- - start" + "Evaluate the receiver. If it returns false, evaluate aBlock and restart" "When the receiver is a block expression, whileFalse: is optimized by the compiler" diff --git a/kernel/CharArray.st b/kernel/CharArray.st index 229fc28..12daf23 100644 --- a/kernel/CharArray.st +++ b/kernel/CharArray.st @@ -162,10 +162,9 @@ accessing and manipulation methods for strings.'> indexOf: aCharacterArray matchCase: aBoolean startingAt: anIndex [ "Answer an Interval of indices in the receiver which match the aCharacterArray pattern. # in aCharacterArray means 'match any character', * in aCharacterArray means - 'match any sequence of characters'. The first item of the returned in- - terval is >= anIndex. If aBoolean is false, the search is case-insen- - sitive, else it is case-sensitive. - If no Interval matches the pattern, answer nil." + 'match any sequence of characters'. The first item of the returned interval + is >= anIndex. If aBoolean is false, the search is case-insensitive, + else it is case-sensitive. If no Interval matches the pattern, answer nil." | result | diff --git a/kernel/Object.st b/kernel/Object.st index c298392..a753e24 100644 --- a/kernel/Object.st +++ b/kernel/Object.st @@ -287,8 +287,8 @@ All classes in the system are subclasses of me.'> For example, a PositionableStream's species is the class of the collection on which it is streaming (used by upTo:, upToAll:, upToEnd). Stream uses species for obtaining the class of next:'s return value, Collection uses - it in its #copyEmpty: message, which in turn is used by all collection-re- - turning methods. An Interval's species is Array (used by collect:, select:, + it in its #copyEmpty: message, which in turn is used by all collection-returning + methods. An Interval's species is Array (used by collect:, select:, reject:, etc.)." diff --git a/kernel/RunArray.st b/kernel/RunArray.st index 870afbd..eaea839 100644 --- a/kernel/RunArray.st +++ b/kernel/RunArray.st @@ -131,8 +131,8 @@ behave like an ArrayedCollection.'> ] addAllLast: aCollection [ - "Add all the elements of aCollection at the end of the receiver. If aCol- - lection is unordered, its elements could be added in an order which is not + "Add all the elements of aCollection at the end of the receiver. If aCollection + is unordered, its elements could be added in an order which is not the #do: order" @@ -211,8 +211,8 @@ behave like an ArrayedCollection.'> at: anIndex splitAndPut: anObject decrementBy: i [ "Private - Split the run at index anIndex (say it's made of n elements) - into two runs for a total of n-i elements; between them, put a one ele- - ment run for anObject. Answer anObject" + into two runs for a total of n-i elements; between them, put a one element + run for anObject. Answer anObject" | run | @@ -411,9 +411,9 @@ Collection extend [ ] asRunArrayMap [ - "Private - Answer the receiver converted to an OrderedCollection of Asso- - ciations whose keys are the actual objects and whose values are the number - of consecutive copies of them" + "Private - Answer the receiver converted to an OrderedCollection of + Associations whose keys are the actual objects and whose values are + the number of consecutive copies of them" "Bags can be easily packed, because they are made of runs of unordered elements like RunArrays. As the #do: order of non-sequenceable collections @@ -430,9 +430,9 @@ Collection extend [ Bag extend [ asRunArrayMap [ - "Private - Answer the receiver converted to an OrderedCollection of Asso- - ciations whose keys are the actual objects and whose values are the number - of consecutive copies of them" + "Private - Answer the receiver converted to an OrderedCollection of + Associations whose keys are the actual objects and whose values are + the number of consecutive copies of them" | map | @@ -448,9 +448,9 @@ Bag extend [ SequenceableCollection extend [ asRunArrayMap [ - "Private - Answer the receiver converted to an OrderedCollection of Asso- - ciations whose keys are the actual objects and whose values are the number - of consecutive copies of them" + "Private - Answer the receiver converted to an OrderedCollection of + Associations whose keys are the actual objects and whose values are + the number of consecutive copies of them" | map prev startIndex | diff --git a/kernel/SeqCollect.st b/kernel/SeqCollect.st index 9c46468..c09b72d 100644 --- a/kernel/SeqCollect.st +++ b/kernel/SeqCollect.st @@ -954,9 +954,9 @@ some access and manipulation methods.'> ] with: aSequenceableCollection do: aBlock [ - "Evaluate aBlock for each pair of elements took respectively from the re- - ceiver and from aSequenceableCollection. Fail if the receiver has not - the same size as aSequenceableCollection." + "Evaluate aBlock for each pair of elements took respectively from + the receiver and from aSequenceableCollection. Fail if the receiver + has not the same size as aSequenceableCollection." self size = aSequenceableCollection size @@ -966,10 +966,10 @@ some access and manipulation methods.'> ] with: aSequenceableCollection collect: aBlock [ - "Evaluate aBlock for each pair of elements took respectively from the re- - ceiver and from aSequenceableCollection; answer a collection of the same - kind of the receiver, made with the block's return values. Fail if the - receiver has not the same size as aSequenceableCollection." + "Evaluate aBlock for each pair of elements took respectively from + the receiver and from aSequenceableCollection; answer a collection of + the same kind of the receiver, made with the block's return values. + Fail if the receiver has not the same size as aSequenceableCollection." | newCollection | diff --git a/kernel/ValueAdapt.st b/kernel/ValueAdapt.st index 985f2ec..791f914 100644 --- a/kernel/ValueAdapt.st +++ b/kernel/ValueAdapt.st @@ -124,8 +124,8 @@ ValueAdaptor subclass: ValueHolder [ | value | - @@ -366,10 +366,10 @@ PluggableAdaptor subclass: DelayedAdaptor [ | value delayed | - + trigger [ "Really set the value of the receiver."