WIP: Fix flu0 name registration

prototype/poc-machi/src/machi_flu0.erl

@@ -120,6 +120,7 @@ init([Name]) ->
     lclock_init(),
     [(catch exit(whereis(Name), kill)) || _ <- lists:seq(1,2)],
     erlang:yield(),
+    register(Name, self()),
     {ok, #state{name=Name,
                 proj_epoch=-42,
                 proj_store_pub=orddict:new(),

prototype/poc-machi/test/machi_flu0_test.erl

@@ -53,12 +53,12 @@ concuerror2_test() ->
 
 concuerror3_test() ->
     Me = self(),
-    Fun = fun() -> {ok, F1} = machi_flu0:start_link(one),
+    Inner = fun(Name) -> {ok, F1} = machi_flu0:start_link(Name),
                          ok = machi_flu0:stop(F1),
                          Me ! done
             end,
-    P1 = spawn(Fun),
-    P2 = spawn(Fun),
+    P1 = spawn(fun() -> Inner(one) end),
+    P2 = spawn(fun() -> Inner(two) end),
     [receive done -> ok end || _ <- [P1, P2]],
     
     ok.