a051223

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

@@ -19,7 +19,7 @@                           :id (long (* (rand) Long/MAX_VALUE))})       (recur)))) -(defn read-and-handle-packet+(defn read-and-handle-packet!   "Reads/deserializes one packet into a message, and handles it.    Because packet reading is dependent on the state of the client, and handling a packet can update the state of the client,    Reading and handling must be synchronized!"@@ -40,7 +40,7 @@                     client))     packets-in ([pk]                 (when pk-                  (read-and-handle-packet pk client messages-out)))))+                  (read-and-handle-packet! pk client messages-out)))))  (defn connect! [client packets-in packets-out]   (let [messages-out (chan 1024)]