- (let ((behaviour (hash-table-ref/default actor-table id '()))))
- (if (null? behaviour)
- (print "Warning: discarded message" message " to unknown actor " address)
- (match (apply (hash-table-ref actor-table id) (cons address message))
- ('done (hash-table-delete! actor-table actor))
- ('sleep 'do-nothing)
- (new-beh (hash-table-put! actor new-beh))))))
+ (let ((behaviour (hash-table-ref/default actor-table id '())))
+ (if (null? behaviour)
+ (print "Warning: discarded message" message " to unknown actor " address)
+ (match (apply (hash-table-ref actor-table id) (cons address message))
+ ('done (hash-table-delete! actor-table actor))
+ ('sleep 'do-nothing)
+ (new-beh (hash-table-put! actor new-beh)))))))