anchor.diff:  	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
  
positive.code: 	subscribe/1,
  	subscribe/2,
  	send/2,
  	routify/2,
  	path/1,
  	subpaths/1,
  	lookup/1
  ]).
  
  
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
  