From 61a63b4d4b29bc31c28cf2e3acc5af5783d7ccae Mon Sep 17 00:00:00 2001
From: vibr <vibr>
Date: Wed, 6 Apr 2005 11:59:05 +0000
Subject: [PATCH] adapt URI-HAS-PROTOCOL? to new URL parser

---
 scheme/httpd/cgi-server.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/scheme/httpd/cgi-server.scm b/scheme/httpd/cgi-server.scm
index cc351fe..483824b 100644
--- 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*