Do not include remotes on reachable results

Author: José Valim

lib/elixir/lib/module/dispatch_tracker.ex

@@ -148,7 +148,8 @@ defmodule Module.DispatchTracker do
   end
 
   defp reduce_reachable(d, vertex, vertices) do
-    neighbours = :digraph.out_neighbours(d, vertex) |> :ordsets.from_list
+    neighbours = :digraph.out_neighbours(d, vertex)
+    neighbours = (lc { _, _ } = t inlist neighbours, do: t) |> :ordsets.from_list
     remaining  = :ordsets.subtract(neighbours, vertices)
     vertices   = :ordsets.union(neighbours, vertices)
     :lists.foldl(reduce_reachable(d, &1, &2), vertices, remaining)

lib/elixir/test/elixir/module/dispatch_tracker_test.exs

@@ -157,6 +157,12 @@ defmodule Module.DispatchTrackerTest do
     refute Module in D.remotes_with_dispatch(config[:pid], { :unknown, 1 })
   end
 
+  test "remotes are not reachable", config do
+    D.add_definition(config[:pid], :def, { :public, 1 })
+    D.add_remote(config[:pid], { :public, 1 }, Module, { :concat, 1 })
+    assert D.reachable(config[:pid]) == [{ :public, 1 }]
+  end
+
   ## All
 
   test "can query dispatches", config do