Parser__readArray

#Class Parser

[back]

readArray	| args |
	self currentChar ~= $(
		ifTrue: [ self error: self currentChar asString + 'Little Smalltalk does not use symbols'].
	self nextChar. self nextLex. args <- List new.
	[ tokenType ~= $) ]
		whileTrue: [ args add: self readTerm ].
	self nextLex.
	^ PrimitiveNode new number: 36 arguments: args