From 3af7ef7c6d78c48f35f0ff57c4f7962495f359e9 Mon Sep 17 00:00:00 2001 From: erana Date: Tue, 17 Jan 2012 18:41:14 +0900 Subject: [PATCH] tmail refactor - 1 --- scsh/tmail/tforks.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/scsh/tmail/tforks.scm b/scsh/tmail/tforks.scm index 4813a47..9abf796 100644 --- a/scsh/tmail/tforks.scm +++ b/scsh/tmail/tforks.scm @@ -49,7 +49,7 @@ *port (eoln))) - ((lambda (portnumber) + ((lambda () (call-with-values (lambda () (socket-accept *socket)) @@ -104,6 +104,4 @@ (close-socket *socket) (close-output-port out) (exit) - ))) - *port) - )) \ No newline at end of file + )))))) \ No newline at end of file