X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=actors.git;a=blobdiff_plain;f=actors.scm;h=fc266a33d0f3601cdc83c0745fe619fe5ed130d7;hp=884920de5ea5388cf6df6ce5d0ec56b68e0331d9;hb=dbbcc6458c25b95e2813c2efa5f1e4c10dd78f65;hpb=f24d784945aa108bc579ce5bd777dc17361bcb6f

diff --git a/actors.scm b/actors.scm
index 884920d..fc266a3 100644
--- a/actors.scm
+++ b/actors.scm
@@ -4,7 +4,9 @@
    send-message
    run
    send-and-run
-   trace-enabled)
+   restart
+   enable-trace
+   disable-trace)
 
   (import scheme
           (chicken base)
@@ -13,6 +15,12 @@
 
   (define trace-enabled #f) ;used for debugging
 
+  (define (enable-trace)
+    (set! trace-enabled #t))
+
+  (define (disable-trace)
+    (set! trace-enabled #f))
+
 
 ;;;
 ;;; Actor creation
@@ -139,4 +147,8 @@
 
   (define (send-and-run actor . message)
     (apply send-message (cons actor message))
-    (run)))
+    (run))
+
+  (define (restart)
+    (set! message-queue (make-fifo))
+    (set! actor-table (make-hash-table))))