scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

tmail refactor - 3

This commit is contained in:
erana 2012-01-17 19:03:58 +09:00
parent 1bf7db77ab
commit ecb02e90a8
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
scsh/tmail/tforks.scm
View File

@ -32,14 +32,14 @@
(define (run-daemon-child-mail rec) (define (run-daemon-child-mail rec)
(let ((*hostname (hostname rec)) (let ((*hostname (hostname rec))
(*port (port rec)) (*port (port rec))
(*socket (socket rec)) (*socket (socket rec))
(*motd (motd rec)) (*motd (motd rec))
(*ack (ack rec)) (*ack (ack rec))
(*apop (apop rec)) (*apop (apop rec))
(*stat (stat rec)) (*stat (stat rec))
(*list (list rec)) (*list (list rec))
(*bye (bye rec))) (*bye (bye rec)))
(set! *socket (open-socket *port)) (set! *socket (open-socket *port))