(defn
input-component-set-value
[this]
(when
($ this :cljsInputLive)
($! this :cljsInputDirty false)
(let
[rendered-value
($ this :cljsRenderedValue)
dom-value
($ this :cljsDOMValue)
node
(find-dom-node this)
synthetic-on-update
($ this :cljsSyntheticOnUpdate)]
(when
(not= rendered-value dom-value)
(if
(fn? synthetic-on-update)
(synthetic-on-update
input-node-set-value
node
rendered-value
dom-value
this)
(input-node-set-value node rendered-value dom-value this {}))))))