Revert "Clean up smalltalk grammar"

This reverts commit 578bb98f2139fa1e82e99e9687932de59fb96ab6.

diff --git a/extra/smalltalk/parser/parser.factor b/extra/smalltalk/parser/parser.factor
index bfacfcc085880c757408c43e7b974668b7669d94..c7cafe94ddc741c3484273672b4f2445c5cd18b5 100644 (file)
--- a/extra/smalltalk/parser/parser.factor
+++ b/extra/smalltalk/parser/parser.factor
@@ -145,14 +145,12 @@ UnaryMessageSend = (UnaryMessageSend | Operand):lhs
               (OptionalWhiteSpace ";" Message:m => [[ m ]])*:t
               => [[ lhs t h prefix >array <ast-cascade> ]]
 
-BinaryMessageSendLHS = (BinaryMessageSend | UnaryMessageSend | Operand)
-
-BinaryMessageSend = BinaryMessageSendLHS:lhs
+BinaryMessageSend = (BinaryMessageSend | UnaryMessageSend | Operand):lhs
               BinaryMessage:h
               (OptionalWhiteSpace ";" Message:m => [[ m ]])*:t
               => [[ lhs t h prefix >array <ast-cascade> ]]
 
-KeywordMessageSend = BinaryMessageSendLHS:lhs
+KeywordMessageSend = (BinaryMessageSend | UnaryMessageSend | Operand):lhs
               KeywordMessage:h
               (OptionalWhiteSpace ";" Message:m => [[ m ]])*:t
               => [[ lhs t h prefix >array <ast-cascade> ]]