fix output type for actors without interests

This commit is contained in:
Sam Caldwell 2019-05-15 16:05:47 -04:00
parent 309d6867d9
commit 68f14919d7
1 changed files with 3 additions and 0 deletions

View File

@ -675,6 +675,9 @@
[(~Message τ)
(define t (replace-bind-and-discard-with-★ #'τ))
(type-eval #`(Observe #,t))]
[τ
#:when (bot? #'τ)
#'τ]
[τ
(define t (replace-bind-and-discard-with-★ #'τ))
(type-eval #`(Observe #,t))]))