Skip to content

Commit 06f1125

Browse files
committed
when compiled need local eval
1 parent cb26ec9 commit 06f1125

File tree

1 file changed

+7
-3
lines changed

1 file changed

+7
-3
lines changed

src/test/cljs/self_host/test.cljs

+7-3
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,8 @@
44
[cljs.js :as cljs]
55
[cljs.nodejs :as nodejs]))
66

7+
(set! (.-user js/cljs) #js {})
8+
79
(nodejs/enable-util-print!)
810

911
(defn latch [m f]
@@ -21,7 +23,9 @@
2123
(def st (cljs/empty-state))
2224

2325
(defn node-eval [{:keys [name source]}]
24-
(.runInThisContext vm source (str (munge name) ".js")))
26+
(if-not js/COMPILED
27+
(.runInThisContext vm source (str (munge name) ".js"))
28+
(js/eval source)))
2529

2630
(def libs
2731
{'bootstrap-test.core :cljs
@@ -31,7 +35,7 @@
3135
(defn node-load [{:keys [name macros]} cb]
3236
(if (contains? libs name)
3337
(let [path (str "src/test/cljs/" (cljs/ns->relpath name)
34-
"." (cljs.core/name (get libs name)))]
38+
"." (cljs.core/name (get libs name)))]
3539
(.readFile fs path "utf-8"
3640
(fn [err src]
3741
(cb (if-not err
@@ -72,7 +76,7 @@
7276
(is (nil? error))
7377
(is (== value 2))
7478
(inc! l)))
75-
#_(cljs/eval-str st "(def x 1)" nil
79+
(cljs/eval-str st "(def x 1)" nil
7680
{:eval node-eval
7781
:context :expr
7882
:def-emits-var true}

0 commit comments

Comments
 (0)