Fixed bug in with-queue macro that would prevent the use of non-literal

Strings or Maps.
mefesto · Feb 18, 2011 · 838e305 · 838e305
1 parent 55ccf62
commit 838e305
Showing 1 changed file with 2 additions and 8 deletions.
diff --git a/src/com/mefesto/wabbitmq.clj b/src/com/mefesto/wabbitmq.clj
@@ -216,14 +216,8 @@
     (queue-declare-internal)
     (f)))
 
-(defmacro with-queue [& forms]
-  (let [form (first forms)
-        cfg  (if (or (instance? String form)
-                     (symbol? form)
-                     (map? form))
-               form)
-        body (if cfg (rest forms) forms)]
-    `(with-queue* ~cfg (fn [] ~@body))))
+(defmacro with-queue [cfg & body]
+  `(with-queue* ~cfg (fn [] ~@body)))
 
 ;;; channel commands
 (defn abort