syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Comprehensions now support internal definitions.

This commit is contained in:
Tony Garnock-Jones 2016-02-29 09:21:05 -05:00
parent 7fc1554230
commit f8f61dd43d
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
prospect/examples/actor/file-system-lll.rkt
View File

@ -37,15 +37,14 @@
[(? patch? p)
(transition files
(for-trie/list [((observe (file $name _)) (patch-added p))]
(let ()
(printf "At least one reader exists for ~v\n" name)
(define initial-content (hash-ref files name #f))
(spawn (file-observation-event-handler name)
initial-content
(patch-seq (core:assert (file name initial-content))
(sub (observe (file name ?)))
(sub (save (file name ?)))
(sub (delete name)))))))]
(printf "At least one reader exists for ~v\n" name)
(define initial-content (hash-ref files name #f))
(spawn (file-observation-event-handler name)
initial-content
(patch-seq (core:assert (file name initial-content))
(sub (observe (file name ?)))
(sub (save (file name ?)))
(sub (delete name))))))]
[(message (save (file name new-content)))
(transition (hash-set files name new-content) '())]
[(message (delete name))