flounder: proper token reading when a buffer is sent first
@@ -1445,6 +1445,7 @@ rx_handler p ifn typedefs msgdefs msgs =
msgfrag_case msg@(Message _ mn _ _) (OverflowFragment (BufferFragment _ afn afl)) caps isFirst isLast = [
C.Ex $ C.Assignment errvar (C.Call "flounder_stub_ump_recv_buf" args),
+ (if isFirst then C.Ex $ C.Assignment binding_incoming_token ump_token else C.SBlank),
C.Ex $ C.Call "ump_chan_free_message" [C.Variable "msg"],
C.If (C.Call "err_is_ok" [errvar])
(msgfrag_case_prolog msg caps isLast)
