anchor.diff:  -export([compile/1]).
   
   -import(erl_syntax, [atom/1, function/2, clause/2, record_expr/2,
  -                     record_field/2, binary/1, binary_field/1, application/2,
  -                     form_list/1, string/1, integer/1, tuple/1, arity_qualifier/2,
  +                     clause/3, record_field/2, binary/1, underscore/0,
  +                     binary_field/1, application/2, form_list/1,
  +                     string/1, integer/1, tuple/1, arity_qualifier/2,
                        binary_field/3, list/1, attribute/2]).
   
   -include("capnp/schema.capnp.hrl").
  
positive.code:                  [clause(none, [application(IdAst, [])]) ]),
                 compile_node(Node)
                 |Acc]
        end, [], ExportedNodes).
      
  compile_node({IdAst, NameAst, Node}) ->
      Id = schema(get, id, Node),
  
negative.code:        ])}.
  
  compile_modulename(Filename) ->
      Module = filename:basename(Filename, <<".capnp">>),
      atom(
        binary_to_list(
          binary:replace(Module, <<".">>, <<"_">>, [global])
         )).
  
  compile_exports(ExportedNodes) ->
  