Levente Uzonyi uploaded a new version of Compiler to project The Trunk:
http://source.squeak.org/trunk/Compiler-ul.210.mcz

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

Name: Compiler-ul.210
Author: ul
Time: 17 June 2011, 4:31:17.171 pm
UUID: 9a16e9f7-e6a8-b249-9040-08ab3346a640
Ancestors: Compiler-ul.209

- Don't send #forgetDoIts, because it's not needed anymore.
- Use #repeat instead of [ true ] whileTrue and friends.

=============== Diff against Compiler-ul.209 ===============

Item was changed:
  ----- Method: Compiler class>>recompileAll (in category 'utilities') -----
  recompileAll	"Compiler recompileAll"
  	"Recompile all classes and traits in the system"
  
- 	Smalltalk forgetDoIts.
  	Smalltalk allClassesAndTraits 
  		do: [:classOrTrait | classOrTrait compileAll] 
  		displayingProgress:[:classOrTrait| 'Recompiling ', classOrTrait]
  
  
  !

Item was changed:
  ----- Method: Compiler class>>recompileAllFrom: (in category 'utilities') -----
  recompileAllFrom: firstName 
  	"Recompile all classes, starting with given name."
  
- 	Smalltalk forgetDoIts.
  	Smalltalk allClassesDo: 
  		[:class | class name >= firstName
  			ifTrue: 
  				[Transcript show: class name; cr.
  				class compileAll]]
  
  	"Compiler recompileAllFrom: 'AAABodyShop'."
  !

Item was changed:
  ----- Method: Parser>>pragmaSequence (in category 'pragmas') -----
  pragmaSequence
  	"Parse a sequence of method pragmas."
  	
+ 	[
- 	[ true ] whileTrue: [
  		(self matchToken: #<)
  			ifFalse: [ ^ self ].
  		self pragmaStatement.
  		(self matchToken: #>)
+ 			ifFalse: [ ^ self expected: '>' ] ] repeat!
- 			ifFalse: [ ^ self expected: '>' ] ]!