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

Fix arg error in HANDLE-RNTO.

This commit is contained in:
sperber 2001-06-20 09:22:59 +00:00
parent 1247e7eed9
commit 10567fd22e
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

@ -357,7 +357,7 @@
(signal-error! 550 (signal-error! 550
(format #f "Could not rename: ~A." path))) (format #f "Could not rename: ~A." path)))
(lambda () (lambda ()
(rename-file full-path) (rename-file (session-to-be-renamed) full-path)
(register-reply! 250 "File renamed.") (register-reply! 250 "File renamed.")
(set-session-to-be-renamed #f))))) (set-session-to-be-renamed #f)))))
@ -808,7 +808,7 @@
; Version ; Version
(define *ftpd-version* "$Revision: 1.12 $") (define *ftpd-version* "$Revision: 1.13 $")
(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*)))