 
 (defn like-this-channel? 
   [msg-channel callback-channel]
-  (some true? 
-        [(= callback-channel (default-message :channel))
-         (= msg-channel callback-channel)]))
+  (or (= callback-channel (default-message :channel))
+      (= msg-channel callback-channel)))
 
 
 (defn like-this-topic?


(defn ^:export like-this-flyer?
  "determines if the callback should be called based on the channel
and the topic"
  [msg-topic msg-channel msg-origin
   callback-topic callback-channel callback-origin]
  (every? true? 
          [(like-this-channel? msg-channel callback-channel)
           (like-this-topic? msg-topic callback-topic)
           (like-this-origin? msg-origin callback-origin)]))


(defn ^:export subscribe

                msg-channel (or (aget msg-js "channel") "FOREIGN")
                msg-topic (or (aget msg-js "topic") (default-message :topic))
                msg-data (or (aget msg-js "data") (default-message :data))
                msg-origin (-> event .getBrowserEvent .-origin)]

            (when (like-this-flyer? msg-topic msg-channel msg-origin topic channel origin)
              (callback msg-data msg-topic msg-channel msg-origin))))]
    (create-broadcast-listener js/window callback-wrapper)))
