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

"occured" -> "occurred"

This commit is contained in:
sperber 2003-02-27 09:02:10 +00:00
parent ee5aba4cf5
commit 3405ab31ed
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/ftpd/ftpd.scm
View File

@ -523,7 +523,7 @@
((error? condition) ((error? condition)
(let ((reason (condition-stuff condition))) (let ((reason (condition-stuff condition)))
(log (syslog-level notice) (log (syslog-level notice)
"internal error occured: ~S (maybe reason: ~S) -- replying and escaping (451)" "internal error occurred: ~S (maybe reason: ~S) -- replying and escaping (451)"
condition reason) condition reason)
(replace-reply! 451 (replace-reply! 451
(format #f "Internal error: ~S" reason)) (format #f "Internal error: ~S" reason))
@ -532,7 +532,7 @@
;; debug level because nearly every unsuccessful command ends ;; debug level because nearly every unsuccessful command ends
;; here (no args, can't change dir, etc.) ;; here (no args, can't change dir, etc.)
(log (syslog-level debug) (log (syslog-level debug)
"ftpd error occured (maybe reason: ~S)-- escaping" (condition-stuff condition)) "ftpd error occurred (maybe reason: ~S)-- escaping" (condition-stuff condition))
(exit)) (exit))
(else (else
(more)))) (more))))
@ -541,7 +541,7 @@
(lambda (errno packet) (lambda (errno packet)
(let ((unix-error (car packet))) (let ((unix-error (car packet)))
(log (syslog-level notice) (log (syslog-level notice)
"unix error occured: ~S -- replying (451) and escaping" "unix error occurred: ~S -- replying (451) and escaping"
unix-error) unix-error)
(replace-reply! 451 (replace-reply! 451
(format #f "Unix error: ~A." unix-error)))) (format #f "Unix error: ~A." unix-error))))