See brunobuzzi/OrbeonPersistenceLayer#407
Rewrite tool example:
AST pattern matching:
`msg
^self formCreatorClass createFormInstance: `#formInstance definitionNamed: `#defName app: `#appName definitionMethod: `#formDefinition in: `arg
AST replacing Pattern:
`msg
^self formCreatorClass
createFormInstance: `{RBMessageNode receiver: (RBMessageNode receiver: (RBVariableNode named: 'self') selector: #newInstanceTemplate) selector: (RBVariableNode identifierToken: `#formInstance) name}
definitionNamed: `#defName
app: `#appName
definitionMethod: `{RBMessageNode receiver: (RBMessageNode receiver: (RBVariableNode named: 'self') selector: #newDefinitionTemplate) selector: (RBVariableNode identifierToken: `#formDefinition) name}
in: `arg