The Lambda Lab
/
projects
/
actors.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
(define factorial
(make-actor-with-address
@@
-12,8
+12,8
@@
(lambda (self m)
(send-message customer (* n m))
'done))))
(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
(define println
(make-actor-with-address 'println
@@
-22,4
+22,5
@@
'sleep)))
(send-message factorial println 5)
'sleep)))
(send-message factorial println 5)
+(send-message factorial println 7)
(run)
(run)