From 9069955a9534a2c3a2af52e87ec7c67e5b278140 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 18 Feb 2014 18:43:34 -0500 Subject: [PATCH] Accommodate a recent change to typed-racket syntax --- ground.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ground.rkt b/ground.rkt index 86efadb..5a67aba 100644 --- a/ground.rkt +++ b/ground.rkt @@ -59,7 +59,7 @@ (define pid (process-pid old-p)) (match (endpoint-role ep) [(role 'subscriber (cons (? evt? evt) _) 'participant) - (: evt-handler : Any -> vm -> vm) + (: evt-handler : Any -> (vm -> vm)) (define ((evt-handler message) state) (let-values (((state wp) (extract-process state pid))) (if (not wp)