fix deletion of reverse-map entry

src/gproc_dist.erl

@@ -836,9 +836,10 @@ delete_globals(Globals) ->
     lists:foreach(
       fun({{_,g,_},T} = K) when is_atom(T); is_pid(T) ->
               ets:delete(?TAB, K);
-	 ({{{_,g,_},T} = K, P}) when is_pid(P),is_atom(T); is_pid(P),is_pid(T) ->
-	      ets:delete(?TAB, {P, K}),
-	      ets:delete(?TAB, K);
+         ({{{_,g,_} = R, T} = K, P}) when is_pid(P), is_atom(T);
+                                          is_pid(P), is_pid(T) ->
+              ets:delete(?TAB, {P, R}),
+              ets:delete(?TAB, K);
          ({Pid, Key}) when is_pid(Pid); Pid==shared ->
 	      ets:delete(?TAB, {Pid, Key})
       end, Globals).