vector

Author: borkdude

squint/corpus/core_vars.cljs

@@ -9,3 +9,7 @@
 (js/console.log (get clj-map :foo/bar)) ;; => 6
 
 (js/console.log (str clj-map))
+
+(def log js/console.log)
+
+(log (first [1 2 3]))

squint/corpus/core_vars.mjs

@@ -1,7 +1,9 @@
-import { toJs, get, keyword, str, arrayMap } from 'cherry-cljs/cljs.core.js'
+import { toJs, first, get, vector, keyword, str, arrayMap } from 'cherry-cljs/cljs.core.js'
 
 const js_map = toJs(arrayMap(keyword("foo"), keyword("bar")));
 console.log(js_map);
 const clj_map = arrayMap(keyword("foo/bar"), (1 + 2 + 3));
 console.log(get(clj_map, keyword("foo/bar")));
 console.log(str(clj_map));
+const log = console.log;
+log(first(vector(1, 2, 3)));

squint/package.json

@@ -2,7 +2,7 @@
   "type": "module",
   "name": "cherry-cljs",
   "sideEffects": false,
-  "version": "0.0.0-alpha.5",
+  "version": "0.0.0-alpha.6",
   "files": [
     "cljs.core.js",
     "lib/cljs_core.js"

squint/shadow-cljs.edn

@@ -20,7 +20,13 @@
                           conj cljs.core/conj
                           get cljs.core/get
                           arrayMap cljs.core/array-map
-                          hashMap cljs.core/hash-map}}
+                          hashMap cljs.core/hash-map
+                          first cljs.core/first
+                          rest cljs.core/rest
+                          next cljs.core/next
+                          nth cljs.core/nth
+                          seq cljs.core/seq
+                          }}
     #_#_:transpiler {}}
    :build-hooks [(shadow.cljs.build-report/hook
                   {:output-to "report.html"})]}}}

squint/src/cherry/transpiler.clj

@@ -99,7 +99,8 @@
                          'await 'const 'defn 'let 'ns 'def]))
 
 (def core-vars (set '[map assoc str keyword symbol
-                      dissoc conj vector clj->js js->clj get]))
+                      dissoc conj vector clj->js js->clj get
+                      hash-map array-map first rest next nth seq]))
 
 (def core->js '{clj->js toJs
                 js->cljs toCljs
@@ -400,7 +401,8 @@
       (throw (new Exception (str "invalid form: " expr))))))
 
 (defmethod emit clojure.lang.IPersistentVector [expr]
-  (str "[" (str/join ", " (map emit expr)) "]"))
+  (swap! *imported-core-vars* conj 'vector)
+  (format "vector(%s)" (str/join ", " (map emit expr))))
 
 (defmethod emit clojure.lang.LazySeq [expr]
   (emit (into [] expr)))