The Lambda Lab
/
projects
/
actors.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Improved examples.
[actors.git]
/
actors.scm
diff --git
a/actors.scm
b/actors.scm
index
633445a
..
263acdc
100644
(file)
--- a/
actors.scm
+++ b/
actors.scm
@@
-9,6
+9,8
@@
(define actor-table (make-hash-table))
(define (make-actor-with-address address behaviour)
(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)
(hash-table-set! actor-table address behaviour)
address)
@@
-33,7
+35,10
@@
(let ((value (apply behaviour (cons address message))))
(case value
((sleep) 'do-nothing)
(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))
(else
(if trace-enabled
(print "Updating behaviour of " address))