File tree Expand file tree Collapse file tree 1 file changed +6
-3
lines changed
src/main/cljs/clojure/browser Expand file tree Collapse file tree 1 file changed +6
-3
lines changed Original file line number Diff line number Diff line change 3131(goog-define PORT 9000 )
3232
3333(def xpc-connection (atom nil ))
34+ (def parent-connected? (atom false ))
3435(def print-queue (array ))
3536
3637(defn flush-print-queue! [conn]
4041
4142(defn repl-print [data]
4243 (.push print-queue (pr-str data))
43- (when-let [conn @xpc-connection]
44- (flush-print-queue! conn )))
44+ (when @parent-connected?
45+ (flush-print-queue! @xpc-connection )))
4546
4647(set! *print-newline* true )
4748(set-print-fn! repl-print)
220221 ; ; to ack once.
221222 (when-not @connected?
222223 (reset! connected? true )
224+ (reset! parent-connected? true )
223225 (net/transmit repl-connection
224226 :ack-handshake
225- nil ))))
227+ nil )
228+ (flush-print-queue! repl-connection))))
226229 (net/register-service repl-connection
227230 :evaluate-javascript
228231 (fn [js]
You can’t perform that action at this time.
0 commit comments