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

Clear the THE-SESSION-REPLIES after writing a reply.

This commit is contained in:
sperber 2003-03-21 10:42:37 +00:00
parent 9194257f8e
commit 1c6bfbc4ea
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
scheme/ftpd/ftpd.scm
View File

@ -1301,6 +1301,7 @@
(write-crlf (the-session-control-output-port)) (write-crlf (the-session-control-output-port))
(log (syslog-level debug) "Reply: ~A" reply-text) (log (syslog-level debug) "Reply: ~A" reply-text)
(loop (cdr replies)))))))) (loop (cdr replies))))))))
(set-the-session-replies! '())
(set-the-session-reply-code! #f)) (set-the-session-reply-code! #f))
(define (signal-error! code message) (define (signal-error! code message)