anchor.diff:  add_trigger(Triggers,ID,Fun) -> 
     maybe_restart(ID,[{ID,Fun}|clean_triggers(Triggers,[ID])]).
   
  -del_trigger(Triggers,ID) ->
  +delete_trigger(Triggers,ID) ->
     maybe_restart(ID,clean_triggers(Triggers,[ID])).
   
   maybe_restart(Trig,Triggers) -> 
  
positive.code: clean_triggers(Triggers,IDs) ->
    lists:filter(fun({ID,_})->not lists:member(ID,IDs) end, Triggers).
  
  %%exit if What is jailed
  check_jailed(LD,What) ->
    false = lists:member(What, LD#ld.jailed),
    erlang:start_timer(timeout(release), self(), {release, What}),
    LD#ld{jailed=[What|LD#ld.jailed]}.
  
  do_mon(LD) ->
    send_report(LD,sysMon),
  
negative.code: 	 ,monData			 %last system_monitor data
  	}).
  
  rec_info(ld) -> record_info(fields,ld);
  rec_info(_)  -> [].
  
  %% constants
  
  default_triggers() -> 
  