Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fnil instead of conj-set

  • Loading branch information...
commit b7800ffde4ce9395a1628cea808b638ee9393ca6 1 parent 9d7a89d
@ninjudd ninjudd authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/portal/server.clj
View
4 src/portal/server.clj
@@ -1,7 +1,7 @@
(ns portal.server
(:use portal.core portal.io lamina.core aleph.tcp
[clojure.stacktrace :only [root-cause]]
- [useful [map :only [update]] [utils :only [conj-set]]])
+ [useful.map :only [update]]))
(:import (clojure.lang LispReader$ReaderException)))
(def contexts (atom {}))
@@ -27,7 +27,7 @@
(defmacro with-context
"Execute the given forms in the context associated with id."
[channel id & forms]
- `(do (swap! contexts vary-meta update ~id conj-set ~channel)
+ `(do (swap! contexts vary-meta update ~id (fnil conj #{}) ~channel)
(send (get-context ~id)
(fn [bindings#]
(try (push-thread-bindings bindings#)
Please sign in to comment.
Something went wrong with that request. Please try again.