adapt URI-HAS-PROTOCOL? to new URL parser

2005-04-06 11:59:05 +00:00 · 2005-04-06 11:59:05 +00:00 · 61a63b4d4b
parent 0de6fe79b4
commit 61a63b4d4b
1 changed files with 3 additions and 3 deletions
--- a/scheme/httpd/cgi-server.scm
+++ b/scheme/httpd/cgi-server.scm
@ -287,9 +287,9 @@
 		       (copy-inport->outport script-port out)))))

 (define (uri-has-protocol? loc)
-  (receive (proto path search frag)
-      (parse-uri loc)
-    (if proto #t #f)))
+  (receive (host port path query)
+      (parse-url loc)
+    (if host #t #f)))

 (define (extract-status-code-and-text status req)
  (with-fatal-error-handler*