Can save/restore actor table to/from disk.

[actors.git] / testing_factorial3.scm

diff --git a/testing_factorial3.scm b/testing_factorial3.scm
index b3450aa..e809c84 100644 (file)
--- a/testing_factorial3.scm
+++ b/testing_factorial3.scm
@@ -1,6 +1,6 @@
-(load "actors.scm")
+(import actors)
 
-(define trace-enabled #t)
+(enable-trace)
 
 (define factorial
   (make-actor-with-address
@@ -12,8 +12,8 @@
                           (lambda (self m)
                             (send-message customer (* n m))
                             'done))))
-           (send-message self fact-acc (- n 1))
-           'sleep)))))
+           (send-message self fact-acc (- n 1))))
+     'sleep)))
 
 (define println
   (make-actor-with-address 'println
@@ -22,4 +22,5 @@
      'sleep)))
 
 (send-message factorial println 5)
+(send-message factorial println 7)
 (run)