- (new-beh (hash-table-set! actor-table id new-beh)))
- ((exn)
- (print "## Warning: actor id " id " crashed evaluating message " message)))))))
+ ('pass
+ (log-trace "Passing to parent behaviour...")
+ (loop (beh-parent beh)))
+ ((? procedure? new-beh) (hash-table-set! actor-table id new-beh))
+ (else
+ (log-msg "Warning: behaviour of actor " id " returned invalid value.")))
+ (o (exn)
+ (log-msg "Warning: actor " id " crashed evaluating message " message)
+ (print-error-message o)))
+ (log-msg "Warning: DISCARDING message to unknown actor " id ": " message)))))