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

THREAD-FORK doesn't take an additional second argument (yet).

This commit is contained in:
sperber 2002-01-08 15:02:39 +00:00
parent 0c7e75a2b5
commit f5cd1798d3
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ftpd.scm
View File

@ -145,8 +145,7 @@
address
anonymous-home
port
remote-address)
remote-address))) ; use remote address as thread-name
remote-address))))
port)))))
(define (spawn-to-handle-connection socket address anonymous-home port remote-address)
@ -1127,7 +1126,7 @@
; Version
(define *ftpd-version* "$Revision: 1.27 $")
(define *ftpd-version* "$Revision: 1.28 $")
(define (copy-port->port-binary input-port output-port)
(let ((buffer (make-string *window-size*)))