diff --git a/server/core/library.dylan b/server/core/library.dylan index c0e9822..f67bd73 100644 --- a/server/core/library.dylan +++ b/server/core/library.dylan @@ -179,7 +179,6 @@ define module http-server create log-content, *log-content?*, - // These are wrappers for the defs by the same name in the logging library. log-trace, log-debug, log-info, @@ -261,11 +260,7 @@ define module httpi // http internals }, exclude: { }; // this comes from the uri library now. use logging, - rename: { log-trace => %log-trace, - log-debug => %log-debug, - log-info => %log-info, - log-warning => %log-warning, - log-error => %log-error }; + exclude: { log-trace, log-debug, log-info, log-warning, log-error }; use memory-manager; use mime; use operating-system; // from system lib diff --git a/server/core/response.dylan b/server/core/response.dylan index 914d17b..f79164c 100644 --- a/server/core/response.dylan +++ b/server/core/response.dylan @@ -191,7 +191,7 @@ define sealed method send-header send-header(socket, name, tail(val)); else format(socket, "%s: %s\r\n", name, val); - %log-debug(*http-common-log*, "Sent header %s: %s", name, val); + log-message($debug-level, *http-common-log*, "Sent header %s: %s", name, val); end if; end; @@ -296,7 +296,7 @@ define inline function log-request " \"", as(, get-header(req, "referer") | "-"), "\" \"", as(, get-header(req, "user-agent") | "-"), "\""); - %log-info(*request-log*, "%s", log-entry); + log-message($info-level, *request-log*, "%s", log-entry); end function log-request; // Exported