anchor.diff:  %% running instrumented code completely ignore this call.
   -spec notify(notification(), any()) -> 'ok'.
   
  -notify(halt, Misc) ->
  -    case rpc:block_call('ced@alkis-desktop', lid, from_pid, [self()]) of
  -	not_found -> ok;
  -	Lid ->
  -	    ?RP_SCHED_SEND ! #sched{msg = halt, lid = Lid, misc = Misc},
  -	    %% Wait instead of yield to avoid yield message to scheduler.
  -	    wait()
  -    end;
   notify(Msg, Misc) ->
  -    case rpc:block_call('ced@alkis-desktop', lid, from_pid, [self()]) of
  -	not_found -> ok;
  -	Lid ->
  -	    ?RP_SCHED_SEND ! #sched{msg = Msg, lid = Lid, misc = Misc},
  -	    wait()
  -    end.
  +    ?RP_SCHED_SEND ! #sched{msg = Msg, lid = self(), misc = Misc},
  +    wait().
   
   -spec wakeup() -> 'ok'.
   
  
positive.code: %% handlers.
  dispatcher(Context) ->
      receive
  	#sched{msg = Type, lid = Lid, misc = Misc} ->
  	    handler(Type, Lid, Context, Misc);
  	%% Ignore unknown processes.
  	{'EXIT', Pid, Reason} ->
  	    case lid:from_pid(Pid) of
  
negative.code: -spec block() -> 'ok'.
  
  block() ->
      ?RP_SCHED_SEND ! #sched{msg = block, lid = self()},
      ok.
  
  %% Prompt process Pid to continue running.
  continue(Pid) when is_pid(Pid) ->
      Pid ! #sched{msg = continue};
  continue(Lid) ->
      Pid = lid:get_pid(Lid),
      Pid ! #sched{msg = continue}.
  