"This fileIn augments the functionality of 'senders' so
literal arrays will be searched recursively (like VW)."!

'From Squeak 1.21 of July 17, 1997 on 27 September 1997 at 4:14:24 pm'!


!Object methodsFor: 'browsing' stamp: 'sn 9/27/97 16:14'!
containsLiteral: aLiteral
	^self == aLiteral! !

'From Squeak 1.21 of July 17, 1997 on 27 September 1997 at 4:16:30 pm'!


!Array methodsFor: 'browsing' stamp: 'sn 9/27/97 16:16'!
containsLiteral: aLiteral

	self == aLiteral ifTrue: [^true].
	1 to: self size do: 
		[:index | 
		((self at: index) containsLiteral: aLiteral) ifTrue: [^true]].
	^false! !

'From Squeak 1.21 of July 17, 1997 on 27 September 1997 at 4:28:15 pm'!


!CompiledMethod methodsFor: 'browsing' stamp: 'sn 9/27/97 16:25'!
containsLiteral: aLiteral
	| literals |
	literals _ self literals.
	1 to: literals size do: 
		[:index | ((literals at: index) containsLiteral: aLiteral) ifTrue: [^true]].
	^false! !

'From Squeak 1.21 of July 17, 1997 on 27 September 1997 at 4:30:58 pm'!

!Behavior methodsFor: 'testing method dictionary' stamp: 'sn 9/27/97 16:29'!
whichSelectorsReferTo: literal special: specialFlag byte: specialByte
	"Answer a set of selectors whose methods access the argument as a literal."
	| who method |
	who _ Set new.
	methodDict associationsDo:
		[:assn |
		method _ assn value.
		((method containsLiteral: literal) or:
				[specialFlag and: [method scanFor: specialByte]])
			ifTrue:
			[((literal isKindOf: Association) not
				or: [method sendsToSuper not
					or: [method literals allButLast includes: literal]])
				ifTrue: [who add: assn key]]].
	^who! !