The Lambda Lab
/
projects
/
actors.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
10a0ca7
)
Minor change.
author
Tim Vaughan
<tgvaughan@gmail.com>
Sun, 7 Jul 2019 21:50:45 +0000
(23:50 +0200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Sun, 7 Jul 2019 21:50:45 +0000
(23:50 +0200)
actors.scm
patch
|
blob
|
history
diff --git
a/actors.scm
b/actors.scm
index
45af822
..
633445a
100644
(file)
--- a/
actors.scm
+++ b/
actors.scm
@@
-32,8
+32,8
@@
(print "Warning: discarded message " message " to unknown actor " address)
(let ((value (apply behaviour (cons address message))))
(case value
(print "Warning: discarded message " message " to unknown actor " address)
(let ((value (apply behaviour (cons address message))))
(case value
- ((done) (hash-table-delete! actor-table address))
((sleep) 'do-nothing)
((sleep) 'do-nothing)
+ ((done) (hash-table-delete! actor-table address))
(else
(if trace-enabled
(print "Updating behaviour of " address))
(else
(if trace-enabled
(print "Updating behaviour of " address))
@@
-121,4
+121,3
@@
(define (send-and-run actor . message)
(apply send-message (cons actor message))
(run))
(define (send-and-run actor . message)
(apply send-message (cons actor message))
(run))
-