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

tmail refactor - 1

This commit is contained in:
erana 2012-01-17 18:41:14 +09:00
parent bffa65529b
commit 3af7ef7c6d
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scsh/tmail/tforks.scm
View File

@ -49,7 +49,7 @@
*port *port
(eoln))) (eoln)))
((lambda (portnumber) ((lambda ()
(call-with-values (call-with-values
(lambda () (lambda ()
(socket-accept *socket)) (socket-accept *socket))
@ -104,6 +104,4 @@
(close-socket *socket) (close-socket *socket)
(close-output-port out) (close-output-port out)
(exit) (exit)
))) ))))))
*port)
))