PULSE bugfix: race with finish_init message

prototype/corfurl/src/corfurl_flu.erl

@@ -135,6 +135,9 @@ init({Dir, ExpPageSize, ExpMaxMem}) ->
     self() ! finish_init,                       % TODO
     {ok, State}.
 
+handle_call(Call, From, #state{max_logical_page=unknown} = State) ->
+    {noreply, NewState} = handle_info(finish_init, State),
+    handle_call(Call, From, NewState);
 handle_call({write, ClientEpoch, _LogicalPN, _PageBin}, _From,
             #state{min_epoch=MinEpoch} = State)
   when ClientEpoch < MinEpoch ->

prototype/corfurl/src/corfurl_sequencer.erl

@@ -50,7 +50,6 @@ get(Pid, NumPages) ->
 
 init({FLUs}) ->
     MLP = get_max_logical_page(FLUs),
-    io:format(user, "~s:init: MLP = ~p\n", [?MODULE, MLP]),
     {ok, MLP + 1}.
 
 handle_call({get, NumPages}, _From, MLP) ->