*replace call of PARSE-REQUEST-URI (relict of old URL parser)

with call of URL-STRING->HTTP-URL
This commit is contained in:
vibr 2005-04-06 22:45:48 +00:00
parent 2dcdd41ed9
commit 9342e0e593
1 changed files with 1 additions and 1 deletions

View File

@ -207,7 +207,7 @@
;; (future) NOTE: With this, a redirection may change the ;; (future) NOTE: With this, a redirection may change the
;; protocol in use (currently, the server only supports one of ;; protocol in use (currently, the server only supports one of
;; it). This might be inapplicable. ;; it). This might be inapplicable.
(parse-request-uri new-location-uri socket options))))) (url-string->http-url new-location-uri)))))
(make-request "GET" (make-request "GET"
new-location-uri new-location-uri