Fix -swap! in ratom.cljs

This commit is contained in:
Dan Holmsand 2015-07-30 19:19:07 +02:00
parent 3b8c7a18c7
commit 5e8b813963
1 changed files with 4 additions and 4 deletions

View File

@ -64,7 +64,7 @@
(-reset! a (f state x))) (-reset! a (f state x)))
(-swap! [a f x y] (-swap! [a f x y]
(-reset! a (f state x y))) (-reset! a (f state x y)))
(-swap! [a f x y & more] (-swap! [a f x y more]
(-reset! a (apply f state x y more))) (-reset! a (apply f state x y more)))
IMeta IMeta
@ -143,7 +143,7 @@
(-swap! (._reaction a) f x)) (-swap! (._reaction a) f x))
(-swap! [a f x y] (-swap! [a f x y]
(-swap! (._reaction a) f x y)) (-swap! (._reaction a) f x y))
(-swap! [a f x y & more] (-swap! [a f x y more]
(-swap! (._reaction a) f x y more)) (-swap! (._reaction a) f x y more))
IPrintWithWriter IPrintWithWriter
@ -236,7 +236,7 @@
(-reset! a (f (-peek-at a) x))) (-reset! a (f (-peek-at a) x)))
(-swap! [a f x y] (-swap! [a f x y]
(-reset! a (f (-peek-at a) x y))) (-reset! a (f (-peek-at a) x y)))
(-swap! [a f x y & more] (-swap! [a f x y more]
(-reset! a (apply f (-peek-at a) x y more))) (-reset! a (apply f (-peek-at a) x y more)))
IComputedImpl IComputedImpl
@ -362,7 +362,7 @@
(-reset! a (f state x))) (-reset! a (f state x)))
(-swap! [a f x y] (-swap! [a f x y]
(-reset! a (f state x y))) (-reset! a (f state x y)))
(-swap! [a f x y & more] (-swap! [a f x y more]
(-reset! a (apply f state x y more))) (-reset! a (apply f state x y more)))
IEquiv IEquiv