Don't list files as directories.

This commit is contained in:
sperber 2001-06-09 09:33:37 +00:00
parent 3f178f99d0
commit db59a087ab
1 changed files with 2 additions and 2 deletions

View File

@ -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*)))