luciano/specter
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix mutable cells (not sure what problem was

Browse source
This commit is contained in:
Nathan Marz 2015-06-24 18:15:07 -04:00
parent 784378af34
commit f3080d8e09
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/com/rpl/specter/impl.cljc
View file

@ -315,12 +315,10 @@
;; cell implementation idea taken from prismatic schema library ;; cell implementation idea taken from prismatic schema library
(defprotocol PMutableCell (defprotocol PMutableCell
(get_cell [cell])
(set_cell [cell x])) (set_cell [cell x]))
(deftype MutableCell [^:volatile-mutable q] (deftype MutableCell [^:volatile-mutable q]
PMutableCell PMutableCell
(get_cell [this] q)
(set_cell [this x] (set! q x))) (set_cell [this x] (set! q x)))
(defn mutable-cell (defn mutable-cell
@ -331,7 +329,7 @@
(set_cell cell val)) (set_cell cell val))
(defn get-cell [cell] (defn get-cell [cell]
(get_cell cell)) (field cell 'q))
(defn update-cell! [cell afn] (defn update-cell! [cell afn]
(let [ret (afn (get-cell cell))] (let [ret (afn (get-cell cell))]