projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Rename call of start-agenda to run-agenda
[mudsync.git]
/
mudsync
/
networking.scm
diff --git
a/mudsync/networking.scm
b/mudsync/networking.scm
index 4714556b4427595ec1e1b1ee2694880bd5be8bd2..f12a7e0c86578927bcfa53d18eef1afb6a532ffb 100644
(file)
--- a/
mudsync/networking.scm
+++ b/
mudsync/networking.scm
@@
-17,7
+17,7
@@
;;; along with Mudsync. If not, see <http://www.gnu.org/licenses/>.
(define-module (mudsync networking)
;;; along with Mudsync. If not, see <http://www.gnu.org/licenses/>.
(define-module (mudsync networking)
- #:use-module (8sync
systems
actors)
+ #:use-module (8sync actors)
#:use-module (8sync agenda)
#:use-module (ice-9 format)
#:use-module (ice-9 match)
#:use-module (8sync agenda)
#:use-module (ice-9 format)
#:use-module (ice-9 match)
@@
-49,7
+49,7
@@
(actions
#:allocation #:each-subclass
#:init-value
(actions
#:allocation #:each-subclass
#:init-value
- (
mhandler
s
+ (
build-action
s
(start-listening
(lambda* (actor message
#:key (server %default-server)
(start-listening
(lambda* (actor message
#:key (server %default-server)
@@
-147,7
+147,8
@@
(begin
(nm-handle-line nm client client-id
(string-trim-right line #\return))
(begin
(nm-handle-line nm client client-id
(string-trim-right line #\return))
- (loop))))
+ (when (actor-am-i-alive? nm)
+ (loop)))))
(loop))
(define (nm-handle-port-closed nm client client-id)
(loop))
(define (nm-handle-port-closed nm client client-id)