From: Tim Vaughan Date: Sun, 7 Jul 2019 21:50:45 +0000 (+0200) Subject: Minor change. X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=0dadc9967c78efaafcfbbc48897163e6bfc93c8b;p=actors.git Minor change. --- diff --git a/actors.scm b/actors.scm index 45af822..633445a 100644 --- a/actors.scm +++ b/actors.scm @@ -32,8 +32,8 @@ (print "Warning: discarded message " message " to unknown actor " address) (let ((value (apply behaviour (cons address message)))) (case value - ((done) (hash-table-delete! actor-table address)) ((sleep) 'do-nothing) + ((done) (hash-table-delete! actor-table address)) (else (if trace-enabled (print "Updating behaviour of " address)) @@ -121,4 +121,3 @@ (define (send-and-run actor . message) (apply send-message (cons actor message)) (run)) -