"occured" -> "occurred"
This commit is contained in:
parent
ee5aba4cf5
commit
3405ab31ed
|
@ -523,7 +523,7 @@
|
|||
((error? condition)
|
||||
(let ((reason (condition-stuff condition)))
|
||||
(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)
|
||||
(replace-reply! 451
|
||||
(format #f "Internal error: ~S" reason))
|
||||
|
@ -532,7 +532,7 @@
|
|||
;; debug level because nearly every unsuccessful command ends
|
||||
;; here (no args, can't change dir, etc.)
|
||||
(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))
|
||||
(else
|
||||
(more))))
|
||||
|
@ -541,7 +541,7 @@
|
|||
(lambda (errno packet)
|
||||
(let ((unix-error (car packet)))
|
||||
(log (syslog-level notice)
|
||||
"unix error occured: ~S -- replying (451) and escaping"
|
||||
"unix error occurred: ~S -- replying (451) and escaping"
|
||||
unix-error)
|
||||
(replace-reply! 451
|
||||
(format #f "Unix error: ~A." unix-error))))
|
||||
|
|
Loading…
Reference in New Issue