Nicolas Cellier uploaded a new version of Compiler to project The Trunk:
http://source.squeak.org/trunk/Compiler-nice.99.mcz

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

Name: Compiler-nice.99
Author: nice
Time: 27 November 2009, 11:14:24 am
UUID: ddf7600a-55a4-4d6f-964a-14a5301a415d
Ancestors: Compiler-nice.98

rename scanLitByte -> scanLitByteVec as suggested by Eliot

=============== Diff against Compiler-nice.98 ===============

Item was changed:
  ----- Method: Scanner>>xLitQuote (in category 'multi-character scans') -----
  xLitQuote
  	"Symbols and vectors: #(1 (4 5) 2 3) #ifTrue:ifFalse: #'abc'."
  	| start |
  	start := mark.
  	self step. "litQuote"
  	self scanToken.
  	tokenType = #leftParenthesis
  		ifTrue: [self scanToken; scanLitVec.
  			mark := start + 1.
  			tokenType == #doIt
  				ifTrue: [self offEnd: 'Unmatched parenthesis']]
  		ifFalse: [tokenType = #leftBracket
+ 				ifTrue: [self scanToken; scanLitByteVec.
- 				ifTrue: [self scanToken; scanLitByte.
  					mark := start + 1.
  					tokenType == #doIt
  						ifTrue: [self offEnd: 'Unmatched bracket']]
  				ifFalse: [(#(#word #keyword #colon ) includes: tokenType)
  						ifTrue: [self scanLitWord]
  						ifFalse: [tokenType == #literal
  								ifTrue: [token isSymbol
  										ifTrue: ["##word"
  											token := token
  											"May want to move toward ANSI
  											here "]]
  								ifFalse: [tokenType == #string
  										ifTrue: [token := token asSymbol]]]]].
  	mark := start.
  	tokenType := #literal
  
  	"#(Pen)
  	#Pen
  	#'Pen'
  	##Pen
  	###Pen
  	"!

Item was added:
+ ----- Method: Scanner>>scanLitByteVec (in category 'expression types') -----
+ scanLitByteVec
+ 	| stream |
+ 	stream := (ByteArray new: 16) writeStream.
+ 	[ tokenType = #rightBracket or: [ tokenType = #doIt ] ] whileFalse: [
+ 		tokenType = #word
+ 			ifTrue: [ self scanLitWord ].
+ 		(token isInteger and: [ token between: 0 and: 255 ])
+ 			ifFalse: [ ^ self offEnd: '8-bit integer or right bracket expected' ].
+ 		stream nextPut: token.
+ 		self scanToken ].
+ 	token := stream contents!

Item was removed:
- ----- Method: Scanner>>scanLitByte (in category 'expression types') -----
- scanLitByte
- 	| stream |
- 	stream := (ByteArray new: 16) writeStream.
- 	[ tokenType = #rightBracket or: [ tokenType = #doIt ] ] whileFalse: [
- 		tokenType = #word
- 			ifTrue: [ self scanLitWord ].
- 		(token isInteger and: [ token between: 0 and: 255 ])
- 			ifFalse: [ ^ self offEnd: '8-bit integer or right bracket expected' ].
- 		stream nextPut: token.
- 		self scanToken ].
- 	token := stream contents!