keywordContinuation: base | receiver name args |
receiver <- self binaryContinuation: base.
self tokenIsKeyword
ifFalse: [ ^ receiver ].
name <- ''.
args <- List new.
[ self tokenIsKeyword ]
whileTrue: [ name <- name + token. self nextLex.
args add:
(self binaryContinuation: self readTerm) ].
^ MessageNode new receiver: receiver name: name arguments: args