+ (if (null? addressed-msg)
+ '()
+ (let ((address (car addressed-msg))
+ (message (cdr addressed-msg)))
+ (dispatch-message address message)))))
+
+(define (run)
+ (unless (null? (process-next-message))
+ (run)))
+
+(define (send-and-run actor . message)
+ (apply send-message (cons actor message))
+ (run))