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

removed ping-statement... (sorry)

This commit is contained in:
interp 2002-04-19 15:56:24 +00:00
parent fb0833078b
commit 241e5c7a2a
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ftpd.scm
View File

@ -187,7 +187,6 @@
maybe-args maybe-args
((port 21) ((port 21)
(logfile #f)) (logfile #f))
(display "ping!\n")
(if logfile (if logfile
(set! *logfile* (open-output-file logfile (bitwise-ior open/create open/append)))) (set! *logfile* (open-output-file logfile (bitwise-ior open/create open/append))))
(with-syslog-destination (with-syslog-destination
@ -1215,7 +1214,7 @@
; Version ; Version
(define *ftpd-version* "$Revision: 1.33 $") (define *ftpd-version* "$Revision: 1.34 $")
(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*)))