anchor.diff:  transform(#binary_op{line=Line, type='==', left=Left, right=Right}) ->
     #'case'{line=Line, expr=#tuple{line=Line, elements=[Left, Right]}, clauses=[
       #clause{line=Line, patterns=[#tuple{line=Line, elements=[
  -        ?string_match(Line, '__left'), 
  -        ?string_match(Line, '__right')
  +        string_match(Line, '__left'), 
  +        string_match(Line, '__right')
         ]}], exprs=[
           #binary_op{
             line  = Line,
             type  = '==',
  -          left  = ?string_to_binary(Line, '__left'),
  -          right = ?string_to_binary(Line, '__right')
  +          left  = string_to_binary(Line, '__left'),
  +          right = string_to_binary(Line, '__right')
           }
       ]},
       #clause{line=Line, patterns=[#tuple{line=Line, elements=[
  
positive.code:   
  % Walk unrecognized nodes without transforming them
  transform(Node) ->
    reia_syntax:map_subtrees(fun transform/1, Node).
negative.code: -module(reia_comparisons).
  -export([transform/2]).
  -include("reia_nodes.hrl").
  
  transform(Exprs, _Options) ->
    reia_syntax:map_subtrees(fun transform/1, Exprs).
  