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