|
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