Emit constant sets.

Author: schani

src/clj/cljc/compiler.clj

@@ -365,8 +365,18 @@
 		     (emit-meta-constant x
 					 (persistent-hash-map-emit-kv-pairs key-names val-names)))))
 
+(defn- persistent-hash-set-emit-seq [items]
+  (emit-seq-construction items
+			 "VAR_NAME (cljc_DOT_core_DOT_PersistentHashSet_SLASH_EMPTY)"
+			 "FUNCALL2 ((closure_t*)VAR_NAME (cljc_DOT_core_SLASH__conj), "
+			 #(emits ", " %)
+			 ")"))
+
 (defmethod emit-constant clojure.lang.PersistentHashSet [x]
-  (FIXME-IMPLEMENT))
+  (let [names (doall (map emit-constant x))]
+    (emit-value-wrap :const-map nil
+		     (emit-meta-constant x
+					 (persistent-hash-set-emit-seq names)))))
 
 (defmacro emit-declaration [& body]
   `(swap! declarations conj (with-out-str ~@body)))

test/clojurec/core_test.clj

@@ -286,9 +286,11 @@
 
 (deftest constants
   (testing "constants"
-    (is (= (core-run '(pr (count '[(1 2)
-				   {3 4}])))
-	   2))))
+    (is (= (core-run '(pr '(1 2)
+			  (let [m '{3 4 5 6}]
+			    (list (keys m) (vals m)))
+			  (map identity '#{7 8})))
+	   '[(1 2) ((3 5) (4 6)) (7 8)]))))
 
 (deftest loops
   (testing "simple loops"