June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/Secure-temporary-file/PicoLisp/secure-temporary-file.l
+++ b/Task/Secure-temporary-file/PicoLisp/secure-temporary-file.l
@ -6,6 +6,7 @@

 : (let F (tmp "foo")
   (ctl F                                 # Get exclusive lock
-      (let N (in F (read))                # Atomic increment
-         (out F (println (inc N))) ) ) )
+      (in F
+         (let N (read)                    # Atomic increment
+            (out F (println (inc N))) ) ) ) )
 -> 124