From ed3877e7b10dd1a1baaaf4ac4b1b9c461014ee73 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 1 Mar 2016 16:56:58 -0500 Subject: [PATCH] Use match-event more --- prospect/examples/actor/file-system-lll.rkt | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/prospect/examples/actor/file-system-lll.rkt b/prospect/examples/actor/file-system-lll.rkt index bd211cd..e0f4943 100644 --- a/prospect/examples/actor/file-system-lll.rkt +++ b/prospect/examples/actor/file-system-lll.rkt @@ -21,7 +21,7 @@ (core:assert (file name new-content))))) (define ((file-observation-event-handler name) e content) - (match e + (match-event e [(? patch? p) (if (set-empty? (project-assertions (patch-removed p) (observe (file (?!) ?)))) #f @@ -30,11 +30,10 @@ [(message (save (file (== name) new-content))) (update-file content name new-content)] [(message (delete (== name))) - (update-file content name #f)] - [_ #f])) + (update-file content name #f)])) (define (file-system-event-handler e files) - (match e + (match-event e [(? patch? p) (transition files (for-trie/list [((observe (file $name _)) (patch-added p))] @@ -49,8 +48,7 @@ [(message (save (file name new-content))) (transition (hash-set files name new-content) '())] [(message (delete name)) - (transition (hash-remove files name) '())] - [_ #f])) + (transition (hash-remove files name) '())])) (spawn file-system-event-handler (hash)