Improved examples.

[actors.git] / testing_factorial3.scm

diff --git a/testing_factorial3.scm b/testing_factorial3.scm
index b3450aa..1cb9dd9 100644 (file)
--- a/testing_factorial3.scm
+++ b/testing_factorial3.scm
@@ -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)