The Trunk: SMBase-ul.95.mcz

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

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

Name: SMBase-ul.95
Author: ul
Time: 11 January 2010, 8:28:31.011 am
UUID: fab6bdaa-ce55-7e48-9425-692208cecaa8
Ancestors: SMBase-nice.94

- code critics

=============== Diff against SMBase-nice.94 ===============

Item was changed:
  ----- Method: SMSqueakMap>>saveCheckpoint: (in category 'checkpoints') -----
  saveCheckpoint: contentWithFilename
  "Save the map checkpoint to disk if it is not there already."
 
+ | directory sz fname content |
- | file directory sz fname content |
  directory := self directory.
  sz := contentWithFilename size.
  fname := contentWithFilename last: sz - (contentWithFilename lastIndexOf: $:).
  content := contentWithFilename first: sz - fname size - 1.
  (directory fileExists: fname) ifFalse: [
+ StandardFileStream newFileNamed: (directory fullNameFor: fname) do: [ :file |
+ file nextPutAll: content ] ]!
- [file := StandardFileStream newFileNamed: (directory fullNameFor: fname).
- file nextPutAll: content]
- ensure: [file close]]!