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

2003-03-21 10:42:37 +00:00 · 2003-03-21 10:42:37 +00:00 · 1c6bfbc4ea
parent 9194257f8e
commit 1c6bfbc4ea
1 changed files with 1 additions and 0 deletions
--- a/scheme/ftpd/ftpd.scm
+++ b/scheme/ftpd/ftpd.scm
@ -1301,6 +1301,7 @@
 	      (write-crlf (the-session-control-output-port))
 	      (log (syslog-level debug) "Reply: ~A" reply-text)
 	      (loop (cdr replies))))))))
+  (set-the-session-replies! '())
  (set-the-session-reply-code! #f))

 (define (signal-error! code message)