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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ftpd.scm
View File

@ -551,7 +551,7 @@
;; work around OLIN BUG ;; work around OLIN BUG
(if (string=? nondir "") (if (string=? nondir "")
"." "."
(file-name-as-directory nondir))) nondir))
(socket:outport (session-data-socket)))))))))) (socket:outport (session-data-socket))))))))))
(define (handle-abor foo) (define (handle-abor foo)
@ -781,7 +781,7 @@
; Version ; Version
(define *ftpd-version* "$Revision: 1.4 $") (define *ftpd-version* "$Revision: 1.5 $")
(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*)))