X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=actors.git;a=blobdiff_plain;f=actors.scm;h=263acdc7fc1266bb2887f739cfbcd41c39bc4b6a;hp=633445aebd6df810b59dba4c3eed9769c03c657b;hb=f1da9dd563657b366b9918d5d5e6b61c1e59c43b;hpb=0dadc9967c78efaafcfbbc48897163e6bfc93c8b

diff --git a/actors.scm b/actors.scm
index 633445a..263acdc 100644
--- a/actors.scm
+++ b/actors.scm
@@ -9,6 +9,8 @@
 (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)
 
@@ -33,7 +35,10 @@
         (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))