Lenient matching of conversation patterns etc.

marketplace/sugar-typed.rkt

@@ -122,7 +122,9 @@
 			 state
 			 (match message
 			   [message-pattern clause-body] ...
-			   [_ '()]))))])))])))
+			   [_ '()]))))]
+	     [_
+	      (lambda: ([state : State]) ((inst core:transition State) state '()))])))])))
 
 (define-syntax spawn:
   (lambda (stx)

marketplace/sugar-untyped.rkt

@@ -108,7 +108,9 @@
 			(core:transition state
 					 (match message
 					   [message-pattern clause-body] ...
-					   [_ '()]))))])))])))
+					   [_ '()]))))]
+	     [_
+	      (lambda (state) (core:transition state '()))])))])))
 
 (define-syntax spawn
   (lambda (stx)