tmail refactor - 1

2012-01-17 18:41:14 +09:00 · 2012-01-17 18:41:14 +09:00 · 3af7ef7c6d
parent bffa65529b
commit 3af7ef7c6d
1 changed files with 2 additions and 4 deletions
--- 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)
-    ))
+           ))))))