Comprehensions now support internal definitions.
This commit is contained in:
parent
7fc1554230
commit
f8f61dd43d
|
@ -37,7 +37,6 @@
|
|||
[(? 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)
|
||||
|
@ -45,7 +44,7 @@
|
|||
(patch-seq (core:assert (file name initial-content))
|
||||
(sub (observe (file name ?)))
|
||||
(sub (save (file name ?)))
|
||||
(sub (delete name)))))))]
|
||||
(sub (delete name))))))]
|
||||
[(message (save (file name new-content)))
|
||||
(transition (hash-set files name new-content) '())]
|
||||
[(message (delete name))
|
||||
|
|
Loading…
Reference in New Issue