(define actor-table (make-hash-table))
(define (make-actor-with-address address behaviour)
+ (if trace-enabled
+ (print "Making actor with address " address))
(hash-table-set! actor-table address behaviour)
address)
(let ((value (apply behaviour (cons address message))))
(case value
((sleep) 'do-nothing)
- ((done) (hash-table-delete! actor-table address))
+ ((done)
+ (if trace-enabled
+ (print "Deleting actor " address))
+ (hash-table-delete! actor-table address))
(else
(if trace-enabled
(print "Updating behaviour of " address))