VM Maker: Cog-eem.172.mcz

Previous Topic Next Topic
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view

VM Maker: Cog-eem.172.mcz

Eliot Miranda uploaded a new version of Cog to project VM Maker:

==================== 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') -----
  "SpurBootstrapMonticelloPackagePatcher new packagesAndPatches"
  packagesAndPatches ifNotNil:
  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].
  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))].