[Pkg] The Trunk: Kernel-eem.712.mcz

[commits at source.squeak.org]

Eliot Miranda uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-eem.712.mcz

==================== Summary ====================

Name: Kernel-eem.712
Author: eem
Time: 8 October 2012, 11:29:17.81 am
UUID: 865633cc-22d5-48fe-8768-b53c0567b3fd
Ancestors: Kernel-ul.711

Make CompiledMethod>>scanFor: accept a block or a number.
It's too easy to say "m scanFor: [:b|...]" and it return nothing
because the closure is never equal to a byte, and there's no error.

=============== Diff against Kernel-ul.711 ===============

Item was changed:
  ----- Method: CompiledMethod>>scanFor: (in category 'scanning') -----
+ scanFor: byteOrClosure
+ 	"Answer whether the receiver contains the argument as a bytecode,
+ 	 if it is a number, or evaluates to true if a block."
+ 	^ (InstructionStream on: self) scanFor: (byteOrClosure isBlock
+ 													ifTrue: [byteOrClosure]
+ 													ifFalse: [[:instr | instr = byteOrClosure]])
- scanFor: byte 
- 	"Answer whether the receiver contains the argument as a bytecode."
- 
- 	^ (InstructionStream on: self) scanFor: [:instr | instr = byte]
  "
  Smalltalk browseAllSelect: [:m | m scanFor: 134]
  "!