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

Use INTERNET-ADDRESS/ANY (who knows if this is right) instead of 

(THIS-HOST-ADDRESS).
This commit is contained in:
sperber 2001-06-20 13:33:03 +00:00
parent 7b285f1fd3
commit 899a7d6f30
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ftpd.scm
View File

@ -482,7 +482,7 @@
;; kludge ;; kludge
(bind-socket socket (bind-socket socket
(internet-address->socket-address (this-host-address) (internet-address->socket-address internet-address/any
0)) 0))
(listen-socket socket 1) (listen-socket socket 1)
@ -810,7 +810,7 @@
; Version ; Version
(define *ftpd-version* "$Revision: 1.14 $") (define *ftpd-version* "$Revision: 1.15 $")
(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*)))