From 491bb6aa4c018423e9afc3ab1685b1146d9c3702 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 5 Apr 2009 23:53:35 -0500 Subject: [PATCH] Clean up smalltalk grammar --- extra/smalltalk/parser/parser.factor | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/extra/smalltalk/parser/parser.factor b/extra/smalltalk/parser/parser.factor index c7cafe94dd..bfacfcc085 100644 --- a/extra/smalltalk/parser/parser.factor +++ b/extra/smalltalk/parser/parser.factor @@ -145,12 +145,14 @@ UnaryMessageSend = (UnaryMessageSend | Operand):lhs (OptionalWhiteSpace ";" Message:m => [[ m ]])*:t => [[ lhs t h prefix >array ]] -BinaryMessageSend = (BinaryMessageSend | UnaryMessageSend | Operand):lhs +BinaryMessageSendLHS = (BinaryMessageSend | UnaryMessageSend | Operand) + +BinaryMessageSend = BinaryMessageSendLHS:lhs BinaryMessage:h (OptionalWhiteSpace ";" Message:m => [[ m ]])*:t => [[ lhs t h prefix >array ]] -KeywordMessageSend = (BinaryMessageSend | UnaryMessageSend | Operand):lhs +KeywordMessageSend = BinaryMessageSendLHS:lhs KeywordMessage:h (OptionalWhiteSpace ";" Message:m => [[ m ]])*:t => [[ lhs t h prefix >array ]]