Atomic updates: Difference between revisions
m
→{{header|PicoLisp}}: not needed.
m (→{{header|PicoLisp}}: evolution.) |
m (→{{header|PicoLisp}}: not needed.) |
||
Line 2,693:
(unless (fork)
(loop
(let Lst (collect 'key '+Bucket) # Get all buckets
(for This Lst # Print current values
Line 2,700 ⟶ 2,699:
"-- Total: "
(sum '((This) (: val)) Lst) ) )
(wait 2000) ) ) # Sleep two seconds
| |||