f54e001

src/net/bowmap/minecraft_server.clj modified (view file)

@@ -32,7 +32,7 @@         (put! messages-out msg))       client))) -(defn handle-packets-and-messages [client packets-in messages-out packets-out]+(defn handle-packets-and-messages! [client packets-in messages-out packets-out]   (alt!!     messages-out ([msg]                   (when msg@@ -47,7 +47,7 @@     ; TODO error handling and disconnect     (io-thread       (loop [client client]-        (when-some [client (handle-packets-and-messages client packets-in messages-out packets-out)]+        (when-some [client (handle-packets-and-messages! client packets-in messages-out packets-out)]           ; Otherwise, stop?           (recur client))))     nil))