adapting to new httpd logging facility

2002-08-26 08:15:43 +00:00 · 2002-08-26 08:15:43 +00:00 · a6f10bc87d
parent 60df692033
commit a6f10bc87d
1 changed files with 2 additions and 1 deletions
--- a/scheme/httpd/seval.scm
+++ b/scheme/httpd/seval.scm
@ -108,7 +108,8 @@
 	     (q (parse-html-form-query qs))		; and parse them up.
 	     (s (cond ((assoc "program" q) => cdr)
 		      (else (error "No program in entity body.")))))
-	(http-log "Seval sexp:~%~s~%" s)
+	(http-syslog (syslog-level debug)
+		     "Seval sexp:~%~s~%" s)
 	(read (make-string-input-port s)))))
   (else (http-error http-reply/bad-request req
 		     "No Content-length: field in POST request."))))