tidy: remove extra debug labels

This commit is contained in:
Sean Hagstrom 2024-03-30 14:52:26 +00:00 committed by Icaro Motta
parent 3be9bd0bbb
commit 8d821c27cb
No known key found for this signature in database
GPG Key ID: 009557D9D014DF07
1 changed files with 15 additions and 15 deletions

View File

@ -54,22 +54,22 @@
v))))
(defn make-state-ref
[state-ratom label]
[state-ratom]
(let [state-ref (atom nil)]
(js/console.log "init make-state-ref" label)
(let [reaction-sub (reagent.ratom/track!
(fn [state-ratom]
(js/console.log "reagent reaction" label)
(let [state @state-ratom]
(js/console.log
(if (nil? @state-ref)
"state-ref init"
"state-ref update")
label
(clj->js state))
(reset! state-ref state)
state))
state-ratom)]
(js/console.log "init make-state-ref")
(let [reaction-sub
(reagent.ratom/track!
(fn [state-ratom]
(js/console.log "reagent reaction")
(let [state @state-ratom]
(js/console.log
(if (nil? @state-ref)
"state-ref init"
"state-ref update")
(clj->js state))
(reset! state-ref state)
state))
state-ratom)]
@reaction-sub
{:sub reaction-sub
:ref state-ref})))