From 0dadc9967c78efaafcfbbc48897163e6bfc93c8b Mon Sep 17 00:00:00 2001
From: Tim Vaughan <tgvaughan@gmail.com>
Date: Sun, 7 Jul 2019 23:50:45 +0200
Subject: [PATCH] Minor change.

---
 actors.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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))
-
-- 
2.20.1