diff --git a/os2.rkt b/os2.rkt index 718728e..b6f9f2d 100644 --- a/os2.rkt +++ b/os2.rkt @@ -149,7 +149,8 @@ [state-pattern (match message-body [message-pattern clause-body ...] - ...)])))]) + ... + [_ state])])))]) #'(add-role topic-expr (handlers presence-handler absence-handler message-handler) ready-handler)))])))