Don't list files as directories.
This commit is contained in:
parent
3f178f99d0
commit
db59a087ab
4
ftpd.scm
4
ftpd.scm
|
@ -551,7 +551,7 @@
|
|||
;; work around OLIN BUG
|
||||
(if (string=? nondir "")
|
||||
"."
|
||||
(file-name-as-directory nondir)))
|
||||
nondir))
|
||||
(socket:outport (session-data-socket))))))))))
|
||||
|
||||
(define (handle-abor foo)
|
||||
|
@ -781,7 +781,7 @@
|
|||
|
||||
; Version
|
||||
|
||||
(define *ftpd-version* "$Revision: 1.4 $")
|
||||
(define *ftpd-version* "$Revision: 1.5 $")
|
||||
|
||||
(define (copy-port->port-binary input-port output-port)
|
||||
(let ((buffer (make-string *window-size*)))
|
||||
|
|
Loading…
Reference in New Issue