projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
You can now look at things
[mudsync.git]
/
mudsync
/
networking.scm
diff --git
a/mudsync/networking.scm
b/mudsync/networking.scm
index 76758c17dd15a42515b997130591f229a57492ec..fe641cc9a227556ee945a8fc58b18a5f3b052ea3 100644
(file)
--- a/
mudsync/networking.scm
+++ b/
mudsync/networking.scm
@@
-19,9
+19,9
@@
(define %default-port 8889)
(define-class <network-manager> (<actor>)
(define %default-port 8889)
(define-class <network-manager> (<actor>)
- (server-socket #:
accesso
r nm-server-socket)
+ (server-socket #:
gette
r nm-server-socket)
;; mapping of client -> client-id
;; mapping of client -> client-id
- (clients #:
accesso
r nm-clients
+ (clients #:
gette
r nm-clients
#:init-thunk make-hash-table)
;; send input to this actor
(send-input-to #:getter nm-send-input-to
#:init-thunk make-hash-table)
;; send input to this actor
(send-input-to #:getter nm-send-input-to
@@
-87,7
+87,7
@@
;; (sigaction SIGPIPE SIG_IGN)
;; Will this break other things that use pipes for us though?
;; (sigaction SIGPIPE SIG_IGN)
;; Will this break other things that use pipes for us though?
- (s
et! (nm-server-socket nm)
s)
+ (s
lot-set! nm 'server-socket
s)
(format #t "Listening for clients in pid: ~s\n" (getpid))
(8sync-port s #:read (lambda (s) (nm-new-client nm s)))
(format #t "Listening for clients in pid: ~s\n" (getpid))
(8sync-port s #:read (lambda (s) (nm-new-client nm s)))