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