steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Clean up smalltalk grammar

db4
Slava Pestov 2009-04-05 23:53:35 -05:00 committed by John Benediktsson
parent 9a4e66c8a6
commit 491bb6aa4c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/smalltalk/parser/parser.factor
View File

@ -145,12 +145,14 @@ UnaryMessageSend = (UnaryMessageSend | Operand):lhs
(OptionalWhiteSpace ";" Message:m => [[ m ]])*:t (OptionalWhiteSpace ";" Message:m => [[ m ]])*:t
=> [[ lhs t h prefix >array <ast-cascade> ]] => [[ lhs t h prefix >array <ast-cascade> ]]
BinaryMessageSend = (BinaryMessageSend | UnaryMessageSend | Operand):lhs BinaryMessageSendLHS = (BinaryMessageSend | UnaryMessageSend | Operand)
BinaryMessageSend = BinaryMessageSendLHS:lhs
BinaryMessage:h BinaryMessage:h
(OptionalWhiteSpace ";" Message:m => [[ m ]])*:t (OptionalWhiteSpace ";" Message:m => [[ m ]])*:t
=> [[ lhs t h prefix >array <ast-cascade> ]] => [[ lhs t h prefix >array <ast-cascade> ]]
KeywordMessageSend = (BinaryMessageSend | UnaryMessageSend | Operand):lhs KeywordMessageSend = BinaryMessageSendLHS:lhs
KeywordMessage:h KeywordMessage:h
(OptionalWhiteSpace ";" Message:m => [[ m ]])*:t (OptionalWhiteSpace ";" Message:m => [[ m ]])*:t
=> [[ lhs t h prefix >array <ast-cascade> ]] => [[ lhs t h prefix >array <ast-cascade> ]]