Get users to write ref mutations themselves.

This commit is contained in:
Colin Jones 2010-11-10 19:16:50 -06:00
parent 7aa2271463
commit a7f7df6f01
2 changed files with 13 additions and 2 deletions

View File

@ -24,4 +24,12 @@
(= "better!!!!!!" (letfn [(exclamator [x] (str x "!"))]
(dosync
(alter the-world ___))
@the-world)))
@the-world))
"Don't forget to do your work in a transaction!"
(= 0 (do __
@the-world))
"Functions passed to alter may depend on the data in the ref"
(= 20 (do
(dosync (alter the-world ___)))))

View File

@ -115,8 +115,11 @@
"\"hello\""
"\"better\""
"\"better!!!\""
'(dosync (ref-set the-world 0))
]
"___" ['(comp exclamator exclamator exclamator)]}
"___" ['(comp exclamator exclamator exclamator)
'(fn [x] (+ 20 x))]}
})
(defn replace-with [s k replacements]