Eliot Miranda uploaded a new version of Cog to project VM Maker: http://source.squeak.org/VMMaker/Cog-eem.172.mcz
==================== Summary ====================
Name: Cog-eem.172 Author: eem Time: 24 July 2014, 11:06:03.817 am UUID: e79f79a5-2e7a-4c15-996c-1de7d3d3d2be Ancestors: Cog-eem.171
Fix slip in categorizing uncategorized methods.
=============== Diff against Cog-eem.171 ===============
Item was changed: ----- Method: SpurBootstrapMonticelloPackagePatcher>>packagesAndPatches (in category 'private-accessing') ----- packagesAndPatches "SpurBootstrapMonticelloPackagePatcher new packagesAndPatches" packagesAndPatches ifNotNil: [^packagesAndPatches]. packagesAndPatches := Dictionary new. SpurBootstrap new prototypeClassNameMetaSelectorMethodDo: [:className :isMeta :selector :method| | class methodReference source | class := Smalltalk classNamed: className. isMeta ifTrue: [class := class class]. methodReference := (class includesSelector: selector) ifTrue: [(class >> selector) methodReference]. + (methodReference notNil + and: [methodReference category = Categorizer default]) ifTrue: - methodReference category = Categorizer default ifTrue: [methodReference := nil]. source := method getSourceFromFile asString allButFirst: method selector size - selector size. source first ~= selector first ifTrue: [source replaceFrom: 1 to: selector size with: selector startingAt: 1]. (packagesAndPatches at: (methodReference ifNotNil: [PackageOrganizer default packageOfMethod: methodReference] ifNil: [PackageOrganizer default packageOfClass: class]) ifAbsentPut: [OrderedCollection new]) add: (MCAddition of: (MCMethodDefinition className: className classIsMeta: isMeta selector: selector category: (methodReference ifNotNil: [methodReference category] ifNil: [SpurBootstrap categoryForClass: className meta: isMeta selector: selector]) timeStamp: method timeStamp source: source))]. ^packagesAndPatches!
vm-dev@lists.squeakfoundation.org