Permalink
Browse files

Clean up smalltalk grammar

  • Loading branch information...
1 parent 01e8d15 commit 578bb98f2139fa1e82e99e9687932de59fb96ab6 Slava Pestov committed with mrjbq7 Apr 6, 2009
Showing with 4 additions and 2 deletions.
  1. +4 −2 extra/smalltalk/parser/parser.factor
View
6 extra/smalltalk/parser/parser.factor
@@ -145,12 +145,14 @@ UnaryMessageSend = (UnaryMessageSend | Operand):lhs
(OptionalWhiteSpace ";" Message:m => [[ m ]])*:t
=> [[ lhs t h prefix >array <ast-cascade> ]]
-BinaryMessageSend = (BinaryMessageSend | UnaryMessageSend | Operand):lhs
+BinaryMessageSendLHS = (BinaryMessageSend | UnaryMessageSend | Operand)
+
+BinaryMessageSend = BinaryMessageSendLHS:lhs
BinaryMessage:h
(OptionalWhiteSpace ";" Message:m => [[ m ]])*:t
=> [[ lhs t h prefix >array <ast-cascade> ]]
-KeywordMessageSend = (BinaryMessageSend | UnaryMessageSend | Operand):lhs
+KeywordMessageSend = BinaryMessageSendLHS:lhs
KeywordMessage:h
(OptionalWhiteSpace ";" Message:m => [[ m ]])*:t
=> [[ lhs t h prefix >array <ast-cascade> ]]

0 comments on commit 578bb98

Please sign in to comment.