anchor.diff:  	subscribe/1,
   	subscribe/2,
   	send/2,
  -	routify/2,
  -	path/1,
  -	subpaths/1,
   	lookup/1
   ]).
   
  
positive.code: 	end, {null, []}, Path),
  	{ok, lists:reverse(Nodes)}.
  
  lookup(Route) ->
  	Path = binary:split(Route, <<".">>, [global]),
  	[ Data || {_, Data} <- do_lookup(null, Path, [])].
  
  do_lookup(_, [], Callbacks) -> Callbacks;
  do_lookup(Parent, [Label], Callbacks) ->
  	NewParent = if
  
negative.code: send(Topic, Message) ->
  	[send_event(Message, self(), Topic, Rec)|| Rec <- lookup(Topic)],
  	ok.
  
  lookup(Route) ->
  	Path = binary:split(Route, <<".">>, [global]),
  	[ Data || {_, Data} <- do_lookup(null, Path, [])].
  
  
  %% ------------------------------------------------------------------
  %% gen_server Function Definitions
  