Added keys & vals. Bump to 0.2.1

project.clj

@@ -1,4 +1,4 @@
-(defproject cljs "0.2"
+(defproject cljs "0.2.1"
   :description
   "An experimental Clojure(ish) to Javascript compiler similar to
    [clojurescript](https://github.com/clojure/clojure-contrib/tree/master/clojurescript/). The library also provides several tools to assist you with integrating cljs into your workflow.  All this in about 1k lines.  Viva Clojure!

src/cljs/core.clj

@@ -873,7 +873,16 @@
                       (aset m (first pair) (second pair))
                       m)
                     {}
-                    pairs)))))))
+                    pairs))))
+
+     '(defn keys [m]
+        (when m
+          (.keys '_ m)))
+
+     '(defn values [m]
+        (when m
+          (.values '_ m)))
+     )))
 
 (defn spit-cljs-core [path]
   (spit path *core-lib*))

src/cljs/opts.clj

@@ -7,7 +7,8 @@
    See var `defaults` for default options. "
   (:use [clojure.java.io :only (file)])
   (:import [java.io File FileReader]
-           [clojure.lang LineNumberingPushbackReader]))
+           [clojure.lang LineNumberingPushbackReader])
+  (:refer-clojure :exclude (slurp)))
 
 (def defaults
   {:source-path "src/cljs"

test/cljs/test/core.clj

@@ -181,3 +181,6 @@
 (deftest test-interleave
   (is (= [1 "a" 2 "b"] (eval-js '(interleave [1 2] [:a :b]))))
   (is (= [1 10 2 20 3 30] (eval-js '(interleave [1 2 3] [10 20 30 40])))))
+
+(deftest test-keys
+  (is (= ["foo-bar" "baz-bap"] (eval-js '(keys {:foo-bar 1 :baz-bap 2})))))

test/cljs/test/opts.clj

@@ -1,6 +1,7 @@
 (ns cljs.test.opts
   (:use [cljs.opts] :reload)
-  (:use [clojure.test]))
+  (:use [clojure.test])
+  (:refer-clojure :exclude (slurp)))
 
 (deftest test-slurp-opts
   (let [{:keys [source-path