From 3405ab31ed61a8537e9a5109c33ae5c7fe1b66bc Mon Sep 17 00:00:00 2001 From: sperber Date: Thu, 27 Feb 2003 09:02:10 +0000 Subject: [PATCH] "occured" -> "occurred" --- scheme/ftpd/ftpd.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/scheme/ftpd/ftpd.scm b/scheme/ftpd/ftpd.scm index bb21f4a..0bbb0f1 100644 --- a/scheme/ftpd/ftpd.scm +++ b/scheme/ftpd/ftpd.scm @@ -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))))