Accommodate a recent change to typed-racket syntax

2014-02-18 18:43:34 -05:00 · 2014-02-18 18:43:34 -05:00 · 9069955a95
parent 4e88b46962
commit 9069955a95
1 changed files with 1 additions and 1 deletions
--- 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)