[squeak-dev] The Trunk: SMBase-ul.95.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Jan 11 08:16:53 UTC 2010


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]]!




More information about the Squeak-dev mailing list