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