readExpression | node |
self tokenIsName ifFalse: [ ^ self keywordContinuation: self readTerm ].
node <- self nameNode: token. self nextLex.
self tokenIsAssignment
ifTrue: [ node assignable
ifFalse: [ self error: 'illegal assignment'].
self nextLex.
^ AssignNode new target: node expression: self readExpression ].
^ self keywordContinuation: node