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

Typo fix: "occured" -> "occurred"

This commit is contained in:
sperber 2005-04-14 08:53:44 +00:00
parent 1ec6dc4f79
commit ae51c20165
5 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/httpd/core.scm
View File

@ -164,7 +164,7 @@
(values #f (values #f
(apply make-error-response (status-code internal-error) (apply make-error-response (status-code internal-error)
#f ; don't know #f ; don't know
"Internal error occured while processing request" "Internal error occurred while processing request"
c))) c)))
(else (else
(decline)))) (decline))))

4
scheme/httpd/logging.scm
View File

@ -154,7 +154,7 @@
(with-errno-handler* (with-errno-handler*
(lambda (errno packet) (lambda (errno packet)
(http-syslog (syslog-level warning) (http-syslog (syslog-level warning)
"[httpd] Warning: An error occured while opening ~S for writing (~A).~%Send signal USR1 when the problem is fixed.~%" "[httpd] Warning: An error occurred while opening ~S for writing (~A).~%Send signal USR1 when the problem is fixed.~%"
log-file log-file
(car packet)) (car packet))
(make-null-output-port)) (make-null-output-port))
@ -187,7 +187,7 @@
(or (with-fatal-error-handler* (or (with-fatal-error-handler*
(lambda (condition decline) (lambda (condition decline)
(http-syslog (syslog-level debug) (http-syslog (syslog-level debug)
"An error occured while resolving IP ~A: ~A" "An error occurred while resolving IP ~A: ~A"
remote-ip condition) remote-ip condition)
remote-ip) remote-ip)
(lambda () (lambda ()

4
scheme/httpd/response.scm
View File

@ -233,7 +233,7 @@
misconfiguration and was unable to complete your request. misconfiguration and was unable to complete your request.
<P> <P>
Please inform the server administrator, ~A, of the circumstances leading to Please inform the server administrator, ~A, of the circumstances leading to
the error, and time it occured.~%" the error, and time it occurred.~%"
(or (httpd-options-server-admin options) (or (httpd-options-server-admin options)
"[no mail address available]")) "[no mail address available]"))
(send-message port) (send-message port)
@ -255,7 +255,7 @@ the requested method (~A).~%"
'() '()
(lambda (port options) (lambda (port options)
(generic-title port) (generic-title port)
(format port "An error occured while waiting for the (format port "An error occurred while waiting for the
response of a gateway.~%") response of a gateway.~%")
(send-message port) (send-message port)
(close-html port))))))) (close-html port)))))))

4
web-server/root/surflets/admin-profiling.scm
View File

@ -232,12 +232,12 @@ plot '~a' title 'SUrflet Profiling ~a' with lines"
(if use-convert? (if use-convert?
(if (zero? convert-status) (if (zero? convert-status)
`(image (@ (src ,convert-picture-name))) `(image (@ (src ,convert-picture-name)))
`(p "An error occured while generating the profiling results" `(p "An error occurred while generating the profiling results"
" chart with convert (" ,convert ")." " chart with convert (" ,convert ")."
" Anyway, you can download the " " Anyway, you can download the "
(url ,gnuplot-picture-name "raw profiling chart") ".")) (url ,gnuplot-picture-name "raw profiling chart") "."))
`(url ,gnuplot-picture-name "Profiling chart.")) `(url ,gnuplot-picture-name "Profiling chart."))
`(p "An error occured while generating the profiling results picture." `(p "An error occurred while generating the profiling results picture."
(br) (br)
"Are you sure, you have " (q "gnuplot") "Are you sure, you have " (q "gnuplot")
" installed at " (q ,gnuplot) "?")) " installed at " (q ,gnuplot) "?"))

2
web-server/root/surflets/spaceship.scm
View File

@ -534,7 +534,7 @@ spaceships of class " ,class ":")
(car last))))))) (car last)))))))
;;; Does a check on the value of a number-input-field. Abstraction ;;; Does a check on the value of a number-input-field. Abstraction
;;; over two cases occured above. Best explained by the use above. ;;; over two cases occurred above. Best explained by the use above.
(define (check-bounded-number-field class input positiv selector boundary) (define (check-bounded-number-field class input positiv selector boundary)
(if (or (not input) (if (or (not input)
(<= input 0)) (<= input 0))