From ecb02e90a85da12e9f234425195e3af16145adf1 Mon Sep 17 00:00:00 2001 From: erana Date: Tue, 17 Jan 2012 19:03:58 +0900 Subject: [PATCH] tmail refactor - 3 --- scsh/tmail/tforks.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/scsh/tmail/tforks.scm b/scsh/tmail/tforks.scm index a77949c..e279bd0 100644 --- a/scsh/tmail/tforks.scm +++ b/scsh/tmail/tforks.scm @@ -32,14 +32,14 @@ (define (run-daemon-child-mail rec) (let ((*hostname (hostname rec)) - (*port (port rec)) - (*socket (socket rec)) - (*motd (motd rec)) - (*ack (ack rec)) - (*apop (apop rec)) - (*stat (stat rec)) - (*list (list rec)) - (*bye (bye rec))) + (*port (port rec)) + (*socket (socket rec)) + (*motd (motd rec)) + (*ack (ack rec)) + (*apop (apop rec)) + (*stat (stat rec)) + (*list (list rec)) + (*bye (bye rec))) (set! *socket (open-socket *port))