hg.stevelosh.com > clojurecraft

--- a/src/clojurecraft/in.clj	Tue Aug 09 00:28:51 2011 -0400
+++ b/src/clojurecraft/in.clj	Tue Aug 09 09:23:07 2011 -0400
@@ -631,7 +631,7 @@
 ; Reading Wrappers -----------------------------------------------------------------
 (defn read-packet [bot prev]
   (let [conn (:connection bot)
-        packet-id-byte (-read-byte conn)]
+        packet-id-byte (to-unsigned (-read-byte conn))]
     (let [packet-id (when (not (nil? packet-id-byte))
                       packet-id-byte)
           packet-type (packet-types packet-id)]
author	Steve Losh <steve@stevelosh.com>
date	Tue, 09 Aug 2011 09:23:07 -0400
parents	a95ebcff284a
children	6f54b979c6b5
branches/tags	(none)
files	src/clojurecraft/in.clj