# HG changeset patch
# User Mikhail Kryshen <mikhail@kryshen.net>
# Date 1299112495 -10800
# Node ID 72821bd32e2e871998931d195be3771e3160d390
# Parent  fbedad9bd6dec5a7f81d4eaf61cc2e4791de4213
Avoid reflection.

diff -r fbedad9bd6de -r 72821bd32e2e src/net/kryshen/indyvon/core.clj
--- a/src/net/kryshen/indyvon/core.clj	Thu Mar 03 03:29:08 2011 +0300
+++ b/src/net/kryshen/indyvon/core.clj	Thu Mar 03 03:34:55 2011 +0300
@@ -156,7 +156,7 @@
 (defn- cm-swap!
   "Atomically swaps the value associated with key in ConcurrentMap
    to be (apply f current-value args). Returns the new value."
-  [cmap key f & args]
+  [^ConcurrentMap cmap key f & args]
   (loop []
     (let [old (.get cmap key)
           new (apply f old args)]