anchor.diff:                          [arity_qualifier(NameAst, integer(0)),
                            arity_qualifier(IdAst, integer(0))|Acc]
                   end, [], ExportedNodes),
  -    list(Exports).
  +    list([arity_qualifier(atom(schema), integer(1))|Exports]).
   
   compile_nodes(ExportedNodes) ->
       lists:foldr(
  
positive.code:                  [clause(none, [application(IdAst, [])]) ]),
                 compile_node(Node)
                 |Acc]
        end, [], ExportedNodes).
      
  compile_node({IdAst, NameAst, Node}) ->
      Id = schema(get, id, Node),
  
negative.code: -export([compile/1]).
  
  -import(erl_syntax, [atom/1, function/2, clause/2, record_expr/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").
  