Clarified names for current-room.

otfrom · May 31, 2010 · 80b6ddf · 80b6ddf
1 parent 1d14f1b
commit 80b6ddf
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/clork.clj b/src/clork.clj
@@ -12,9 +12,9 @@
         direction-strings (sort (map #(% direction-desc) exits))]
     (reduce print-str direction-strings)))
 
-(defn current-room [world player]
-  (let [player-location (get-in world [:players player :location])]
-    (get-in world [:rooms player-location])))
+(defn current-room [world player-name]
+  (let [location-name (get-in world [:players player-name :location])]
+    (get-in world [:rooms location-name])))
 
 (defn look [world player]
   (let [curr-room-name (get-in world [:players player :location])