Secure temporary file: Difference between revisions

→‎{{header|PicoLisp}}: Fix 'ctl' policy
(→‎{{header|Perl 6}}: Add perl 6 example)
(→‎{{header|PicoLisp}}: Fix 'ctl' policy)
Line 439:
: (let F (tmp "foo")
(ctl F # Get exclusive lock
(in F
(let N (in F (read)) # Atomic increment
(outlet FN (printlnread) (inc N))) ) ) ) # Atomic increment
(out F (println (inc N))) ) ) ) )
-> 124</lang>
 
Anonymous user