anchor.diff:  
   mk_rpc_pair(InOut, N, Data, Imports) ->
       {_,_,_,I} = lists:keyfind(input, 1, InOut),
  -    {_,_,_,O} = lists:keyfind(output, 1, InOut),
  +    O = case lists:keyfind(output, 1, InOut) of
  +	    {_,_,_,Ox}  -> Ox;
  +	    false -> void
  +	end,
       {descr(InOut),
        {request, {struct, [{"json-rpc", "2.0"},
   			 {"method", N},
  
positive.code: 	      Acc
        end, [], Data1).
  
  imports(Data, {Dir,Ext}) ->
      lists:foldl(
        fun({import,_,F,[{prefix,_,Pfx,_}|_]}, Acc) ->
  	      case read(filename:join(Dir, binary_to_list(F) ++ Ext)) of
  		  {{ok, Y},_} ->
  		      case [D || {module,_,N,D} <- Y,
  				 N == F] of
  
negative.code:     list_to_binary(io_lib:fwrite("~." ++ integer_to_list(F) ++ "f", [X]));
  to_json_type(X, {type,_,<<"int", _/binary>>,_}) when is_integer(X) ->
      list_to_binary(integer_to_list(X));
  to_json_type(X, {type,_,<<"string">>,_}) when is_atom(X) ->
      atom_to_binary(X, latin1);
  to_json_type(X, {type,_,<<"string">>,_}) when is_list(X) ->
      iolist_to_binary(X);
  to_json_type(_, void) -> <<"ok">>;
  to_json_type(X, {type,_,<<"uint", _/binary>>,_}) when is_integer(X), X >= 0 ->
      list_to_binary(integer_to_list(X));
  to_json_type(false, {type,_,<<"boolean">>,_}) -> <<"0">>;
  