[Pkg] The Trunk: System-nice.216.mcz
commits at source.squeak.org
commits at source.squeak.org
Sun Jan 3 14:54:37 UTC 2010
Nicolas Cellier uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-nice.216.mcz
==================== Summary ====================
Name: System-nice.216
Author: nice
Time: 3 January 2010, 3:54:13 am
UUID: 7a4b7b12-1c22-4ec0-9b06-c8cb60d57bf6
Ancestors: System-ar.215
remove some #or:or: #and:and: sends
=============== Diff against System-ar.215 ===============
Item was changed:
----- Method: MethodReference>>= (in category 'comparisons') -----
= anotherMethodReference
"Answer whether the receiver and the argument represent the
same object."
^ self species == anotherMethodReference species
+ and: [self classSymbol = anotherMethodReference classSymbol
+ and: [self classIsMeta = anotherMethodReference classIsMeta
+ and: [self methodSymbol = anotherMethodReference methodSymbol]]]!
- and: [self classSymbol = anotherMethodReference classSymbol]
- and: [self classIsMeta = anotherMethodReference classIsMeta]
- and: [self methodSymbol = anotherMethodReference methodSymbol]!
Item was changed:
----- Method: SmalltalkImage>>fixObsoleteReferences (in category 'image cleanup') -----
fixObsoleteReferences
"SmalltalkImage current fixObsoleteReferences"
Smalltalk garbageCollect; garbageCollect.
Preference allInstances do: [:each | | informee |
informee := each instVarNamed: #changeInformee.
((informee isKindOf: Behavior)
and: [informee isObsolete])
ifTrue: [
Transcript show: 'Preference: '; show: each name; cr.
each instVarNamed: #changeInformee put: (Smalltalk at: (informee name copyReplaceAll: 'AnObsolete' with: '') asSymbol)]].
CompiledMethod allInstances do: [:method |
| obsoleteBindings |
obsoleteBindings := method literals select: [:literal |
literal isVariableBinding
+ and: [literal value isBehavior
+ and: [literal value isObsolete]]].
- and: [literal value isBehavior]
- and: [literal value isObsolete]].
obsoleteBindings do: [:binding |
| obsName realName realClass |
obsName := binding value name.
Transcript show: 'Binding: '; show: obsName; cr.
realName := obsName copyReplaceAll: 'AnObsolete' with: ''.
realClass := Smalltalk at: realName asSymbol ifAbsent: [UndefinedObject].
binding isSpecialWriteBinding
ifTrue: [binding privateSetKey: binding key value: realClass]
ifFalse: [binding key: binding key value: realClass]]].
Behavior flushObsoleteSubclasses.
Smalltalk garbageCollect; garbageCollect.
SystemNavigation default obsoleteBehaviors size > 0
ifTrue: [
SystemNavigation default obsoleteBehaviors inspect.
self error:'Still have obsolete behaviors. See inspector'].
!
Item was changed:
----- Method: Utilities class>>summariesForUpdates:through: (in category 'fetching updates') -----
summariesForUpdates: startNumber through: stopNumber
"Answer the concatenation of summary strings for updates numbered in the given range"
^ String streamContents: [:aStream |
((ChangeSet changeSetsNamedSuchThat:
+ [:aName | aName first isDigit
+ and: [aName initialIntegerOrNil >= startNumber
+ and: [aName initialIntegerOrNil <= stopNumber]]]) asSortedCollection:
- [:aName | aName first isDigit and:
- [aName initialIntegerOrNil >= startNumber] and:
- [aName initialIntegerOrNil <= stopNumber]]) asSortedCollection:
[:a :b | a name < b name]) do:
[:aChangeSet | aStream cr; nextPutAll: aChangeSet summaryString]]
"Utilities summariesForUpdates: 4899 through: 4903"
!
More information about the Packages
mailing list