From f8f61dd43d8175c552eaf1e96b4eabed5307e20a Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 29 Feb 2016 09:21:05 -0500 Subject: [PATCH] Comprehensions now support internal definitions. --- prospect/examples/actor/file-system-lll.rkt | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/prospect/examples/actor/file-system-lll.rkt b/prospect/examples/actor/file-system-lll.rkt index 6a1090f..4232aea 100644 --- a/prospect/examples/actor/file-system-lll.rkt +++ b/prospect/examples/actor/file-system-lll.rkt @@ -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))