|
16 | 16 | :author "Bobby Calderwood and Alex Redington"}
|
17 | 17 | clojure.browser.repl
|
18 | 18 | (:require [goog.dom :as gdom]
|
| 19 | + [goog.object :as gobj] |
19 | 20 | [goog.userAgent.product :as product]
|
20 | 21 | [clojure.browser.net :as net]
|
21 | 22 | [clojure.browser.event :as event]
|
|
134 | 135 | (.appendChild js/document.body
|
135 | 136 | (as-> (.createElement js/document "script") script
|
136 | 137 | (doto script
|
137 |
| - (aset "type" "text/javascript") |
138 |
| - (aset "onload" onload) |
139 |
| - (aset "onreadystatechange" onload)) ;; IE |
| 138 | + (gobj/set "type" "text/javascript") |
| 139 | + (gobj/set "onload" onload) |
| 140 | + (gobj/set "onreadystatechange" onload)) ;; IE |
140 | 141 | (if (nil? opt_sourceText)
|
141 |
| - (doto script (aset "src" src)) |
| 142 | + (doto script (gobj/set "src" src)) |
142 | 143 | (doto script (gdom/setTextContext opt_sourceText))))))))
|
143 | 144 | ;; queue or load
|
144 | 145 | (set! (.-writeScriptTag_ js/goog)
|
|
157 | 158 | (let [reload? (or reload (.-cljsReloadAll__ js/goog))]
|
158 | 159 | (when reload?
|
159 | 160 | (let [path (aget js/goog.dependencies_.nameToPath src)]
|
160 |
| - (js-delete js/goog.dependencies_.visited path) |
161 |
| - (js-delete js/goog.dependencies_.written |
| 161 | + (gobj/remove js/goog.dependencies_.visited path) |
| 162 | + (gobj/remove js/goog.dependencies_.written path) |
| 163 | + (gobj/remove js/goog.dependencies_.written |
162 | 164 | (str js/goog.basePath path))))
|
163 | 165 | (let [ret (.require__ js/goog src)]
|
164 | 166 | (when (= reload "reload-all")
|
|
0 commit comments