borkdude · May 30, 2010 15:34
diff --git a/gistfile1.txt b/gistfile1.txt
 (defn force-set [n]
 	(if (set? n) n
 	    (conj #{} n)))

 (merge-with (fn [r l] (conj (force-set r) l)) {:a 1 :b 2} {:a 1 :b 3})
 => {:a #{1}, :b #{2 3}}
	(defn force-set [n]
	(if (set? n) n
	(conj #{} n)))

	(merge-with (fn [r l] (conj (force-set r) l)) {:a 1 :b 2} {:a 1 :b 3})
	=> {:a #{1}, :b #{2 3}}