Emit non-constant sets.

Author: schani

src/clj/cljc/compiler.clj

@@ -445,7 +445,9 @@
 
 (defmethod emit :set
   [{:keys [items env]}]
-  (FIXME-IMPLEMENT))
+  (let [item-names (doall (map emit items))]
+    (emit-value-wrap :set env
+		     (emits (persistent-hash-set-emit-seq item-names)))))
 
 (defmethod emit :constant
   [{:keys [form env]}]

test/clojurec/core_test.clj

@@ -483,8 +483,7 @@
                         (pr \a \b) (pr " ")
                         (pr '(1 2 3)) (pr " ")
                         (pr (make-array 2)) (pr " ")
-                        (pr (set (list 1 2 3)))
-                        (pr (hash-set 1 2 3))))
+                        (pr #{1 2 3})))
            [true false
             -1 0 1
             'a 'b
@@ -493,7 +492,6 @@
             \a \b
             '(1 2 3)
             [nil nil]
-            #{1 2 3}
             #{1 2 3}]))))
 
 (deftest equality