Fix some [email protected] incompatibilities I missed

dylan-lang · Aug 29, 2021 · f5c2eb6 · f5c2eb6
1 parent cdf3555
commit f5c2eb6
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 8 deletions.
diff --git 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: { <url> };  // 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
@@ -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(<string>, get-header(req, "referer") | "-"),
                   "\" \"", as(<string>, 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