Skip to content
Browse files

Rename current-id var to client-id.

  • Loading branch information...
1 parent c5a69c9 commit 1936473aa817efb0c4a6c6668f04c51bfcb1a9dd @nbeloglazov committed
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/snakejure/client.clj
View
6 src/snakejure/client.clj
@@ -25,7 +25,7 @@
(apply quil/fill color)
(doseq [cell body]
(draw-cell quil/rect cell))
- (when (= id @current-id) (draw-cell cross (first body))))
+ (when (= id @client-id) (draw-cell cross (first body))))
(defn draw-apples [apples]
(quil/fill 255 0 0)
@@ -56,7 +56,7 @@
(.release semaphore))
(defn key-handler []
- (when (not (nil? @current-id))
+ (when (not (nil? @client-id))
(if-let [dir ({\w :up \s :down \a :left \d :right}
(quil/raw-key))]
(enqueue @server
@@ -68,7 +68,7 @@
(defmethod handle-message :snake-created
[{id :id}]
(println "Got id" id)
- (reset! current-id id))
+ (reset! client-id id))
(defmethod handle-message :update-world
[{:keys [world]}]

0 comments on commit 1936473

Please sign in to comment.
Something went wrong with that request. Please try again.