anchor.diff:  apply_to(BaseConfig, NewConfig, SSPrepend, #cstate{re=RE}=State) ->
       orddict:merge(apply_val_factory(RE, SSPrepend), BaseConfig, NewConfig).
   
  +apply_factory(SSPrepend, State) ->
  +    fun(BaseConfig, NewConfig) ->
  +	    apply_to(BaseConfig, NewConfig, SSPrepend, State)
  +    end.
  +
   cache_store(Kind, Name, Commit, Config, #cstate{table=Cache}) ->
  -    ets:insert(Cache, {{Kind, Name, Commit}, Config}).
  +    ets:insert(Cache, {{Kind, Name, Commit}, Config}),
  +    Config.
   
   cache_find(Kind, Name, Commit, #cstate{table=Cache}) ->
       ok.
  
positive.code: 		 New
  	 end
      end.
  		     
  apply_to(BaseConfig, NewConfig, SSPrepend) ->
      {ok, RE} = re:compile(list_to_binary("(?-mix:^(?:(>=|&&=|\\?=|\\|\\|=)\\s*)+(.*?)\\s*$)")),
      apply_to(BaseConfig, NewConfig, SSPrepend, #cstate{re=RE}).
  
negative.code: transitively_reachable(Graph, StartNode, Filter) ->
      [Node || Node <- transitively_reachable(Graph, StartNode), Filter(Node)].
  
  interesting_install_edge({Kind, _, {'group', _}}) when Kind =:= 'member_of' ->
      true;
  interesting_install_edge({Kind, _, {'feature', _}}) when Kind =:= 'includes' orelse Kind =:= 'installs' ->
      true;
  interesting_install_edge(_) ->
      false.
  
  interesting_install_vertex({'feature', _}) ->
      true;
  interesting_install_vertex({'node', _}) ->
      true;
  interesting_install_vertex({'group', _}) -> 
      true;
  