From 443e321cc811c8715552337ddf47484d7da9509e Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Tue, 3 Sep 2002 08:45:59 +0000
Subject: [PATCH] rename URI-LIKE? to URI-HAS-PROTOCOL?

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

diff --git a/scheme/httpd/cgi-server.scm b/scheme/httpd/cgi-server.scm
index c8d5107..2ccfc99 100644
--- a/scheme/httpd/cgi-server.scm
+++ b/scheme/httpd/cgi-server.scm
@@ -257,7 +257,7 @@
 		 (request:method req))
 
     (if loc
-	(if (uri-like? (string-trim loc))
+	(if (uri-has-protocol? (string-trim loc))
 	    (make-http-error-response http-status/moved-perm req
 				      loc loc)
 	    (make-redirect-response (string-trim loc)))
@@ -275,7 +275,7 @@
 
 
 ;; shouldn't this be in uri?
-(define (uri-like? loc)
+(define (uri-has-protocol? loc)
   (receive (proto path search frag)
       (parse-uri loc)
     (if proto #t #f)))