Mire: use shorthand for anonymous functions

apauley · May 26, 2010 · a62d254 · a62d254
1 parent 83ebd6b
commit a62d254
Showing 1 changed file with 5 additions and 6 deletions.
diff --git a/PeepCode/Clojure/mire/src/mire/commands.clj b/PeepCode/Clojure/mire/src/mire/commands.clj
@@ -46,16 +46,15 @@
 
 (def commands
      {:move      move,
-      :north     (fn [] (move :north)),
+      :north     #(move :north),
-      :east      (fn [] (move :east)),
+      :east      #(move :east),
-      :south     (fn [] (move :south)),
+      :south     #(move :south),
-      :west      (fn [] (move :west)),
+      :west      #(move :west),
       :look      look,
       :grab      grab,
       :discard   discard,
       :inventory inventory,
-      :wtf       (fn []
+      :wtf       #(str "You need help.")})
-                   "Yeah sure, I'll do that right after you grow a brain.")})
 
 (defn execute
   "Execute a command passed from the client"