anchor.diff:  -define(STARTSPEC, {local, ?SRVNAME}).
   -define(PEERNAME, jnode).
   -define(PEERSTR, atom_to_list(?PEERNAME)).
  --define(NERLOMSG(Body), {self(), {Body}}).
  --define(BINDIR, "./").
  +
  +-define(TAG_OK, ok).
  +-define(TAG_ERROR, error).
  +-define(TAG_DATA, data).
  +-define(TAG_CALL, call).
  +-define(NERLOMSG(Tag,Body), {self(), {Tag, [Body]}}).
  +-define(NERLOMSGRCV(From,Tag,Body), {From, {Tag, Body}}).
  +-define(NERLOMSGPART(Key, Value), {Key, Value}).
  +
  +-define(BINDIR, ".").
   -define(JNODEBIN, "jnode").
   
   -record(jsrv, {workers = []
  
positive.code:         yes -> nop;
          no  -> shutdown(S#jsrv.peer,S)
      end,
      timer:send_after(500,?NERLOMSG(bye)),
      log:info(self(),"stopping with state: ~w", [S]),
      {noreply, S#jsrv{stopping=true}};
  handle_cast(Msg,S) ->
  
negative.code:     gen_server:cast(?SRVNAME, {'STOP'}).
  
  % @doc Send a message to the peer.
  send(Tag,Msg = [_|_]) ->
      gen_server:call(?SRVNAME, {send, Tag, Msg}).
  
     
  % @hidden    
  