X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=actors.git;a=blobdiff_plain;f=testing_factorial3.scm;h=e809c843220b77b3b361e26d15c1432ec5251f1d;hp=b3450aae1efd9b4d2bfe3e7973407a916e496fe4;hb=HEAD;hpb=fbacbb91961bea3410f457012075aabd91c168c1 diff --git a/testing_factorial3.scm b/testing_factorial3.scm index b3450aa..e809c84 100644 --- 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)