The Trunk: Kernel-ul.427.mcz

Levente Uzonyi uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-ul.427.mcz

==================== Summary ====================

Name: Kernel-ul.427
Author: ul
Time: 21 March 2010, 5:52:49.226 pm
UUID: 74f36aa8-f73c-7f43-b175-405c52de4af8
Ancestors: Kernel-cmm.426

- don't use SequenceableCollection >> #reverse

=============== Diff against Kernel-cmm.426 ===============

Item was changed:
  ----- Method: CompiledMethod>>getPreambleFrom:at: (in category 'source code management') -----
  getPreambleFrom: aFileStream at: position
+
  |  writeStream |
  writeStream := String new writeStream.
+ position to: 0 by: -1 do: [ :p |
+ | c |
+ aFileStream position: p.
+ (c := aFileStream basicNext) == $!!
+ ifTrue: [ ^writeStream contents reversed ]
+ ifFalse: [ writeStream nextPut: c ] ]!
- position
- to: 0
- by: -1
- do: [:p |
- | c |
- aFileStream position: p.
- c := aFileStream basicNext.
- c == $!!
- ifTrue: [^ writeStream contents reverse]
- ifFalse: [writeStream nextPut: c]]!