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

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

Name: Compiler-nice.98
Author: nice
Time: 27 November 2009, 12:54:16 pm
UUID: 4853aa4f-5bcb-e242-a130-f41f2c4d09ae
Ancestors: Compiler-cwp.97

Add support for literal ByteArray #[1 2 3]

=============== Diff against Compiler-cwp.97 ===============

Item was added:
+ ----- 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!

Item was changed:
+ ----- Method: Scanner class>>initialize (in category 'initialization') -----
- ----- Method: Scanner class>>initialize (in category 'class initialization') -----
  initialize
  	| newTable |
+ 	newTable := Array new: 256 withAll: #xBinary. "default"
- 	newTable _ Array new: 256 withAll: #xBinary. "default"
  	newTable atAll: #(9 10 12 13 32 ) put: #xDelimiter. "tab lf ff cr space"
  	newTable atAll: ($0 asciiValue to: $9 asciiValue) put: #xDigit.
  
  	1 to: 255
  		do: [:index |
  			(Character value: index) isLetter
  				ifTrue: [newTable at: index put: #xLetter]].
  
  	newTable at: 30 put: #doIt.
  	newTable at: $" asciiValue put: #xDoubleQuote.
  	newTable at: $# asciiValue put: #xLitQuote.
  	newTable at: $$ asciiValue put: #xDollar.
  	newTable at: $' asciiValue put: #xSingleQuote.
  	newTable at: $: asciiValue put: #xColon.
  	newTable at: $( asciiValue put: #leftParenthesis.
  	newTable at: $) asciiValue put: #rightParenthesis.
  	newTable at: $. asciiValue put: #period.
  	newTable at: $; asciiValue put: #semicolon.
  	newTable at: $[ asciiValue put: #leftBracket.
  	newTable at: $] asciiValue put: #rightBracket.
  	newTable at: ${ asciiValue put: #leftBrace.
  	newTable at: $} asciiValue put: #rightBrace.
  	newTable at: $^ asciiValue put: #upArrow.
  	newTable at: $_ asciiValue put: #leftArrow.
  	newTable at: $| asciiValue put: #verticalBar.
+ 	TypeTable := newTable "bon voyage!!"
- 	TypeTable _ newTable "bon voyage!!"
  
  	"Scanner initialize"!

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.
- 		ifTrue: 
- 			[self scanToken; scanLitVec.
- 			mark := start+1.
  			tokenType == #doIt
  				ifTrue: [self offEnd: 'Unmatched parenthesis']]
+ 		ifFalse: [tokenType = #leftBracket
+ 				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]]]]].
- 		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
  	###Pen
+ 	"!
- "!