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

Add missing parameter to format in maybe-open-logfile.

This commit is contained in:
mainzelm 2002-12-20 07:53:43 +00:00
parent 6156c77161
commit f0dbc7acba
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scheme/ftpd/ftpd.scm
View File

@ -300,8 +300,9 @@
((errno packet) ((errno packet)
(else (else
(format (current-error-port) (format (current-error-port)
"[ftpd] Warning: Unable to write logs to ~S. Logging is now made to (current-error-port).~%[ftpd] (To disable logging at all, either leave the logfile argument or give #f as logfile)~%") "[ftpd] Warning: Unable to write logs to ~S. Logging is now made to (current-error-port).~%[ftpd] (To disable logging at all, either leave the logfile argument or give #f as logfile)~%"
(current-error-port))) maybe-logfile)
(current-error-port)))
(and maybe-logfile (and maybe-logfile
(open-output-file maybe-logfile (open-output-file maybe-logfile
(bitwise-ior open/create open/append))))) (bitwise-ior open/create open/append)))))