From e5c8cae17fe055db9a8a0bd17892ca1ea088ea26 Mon Sep 17 00:00:00 2001
From: vibr <vibr>
Date: Tue, 5 Apr 2005 10:59:13 +0000
Subject: [PATCH] rename HTTP-URL->URI-STRING to HTTP-URL->URL-STRING

---
 scheme/lib/url.scm  | 2 +-
 scheme/packages.scm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/lib/url.scm b/scheme/lib/url.scm
index eec5db3..c3c8328 100644
--- a/scheme/lib/url.scm
+++ b/scheme/lib/url.scm
@@ -247,7 +247,7 @@
 
 ;;; Unparse a http-url record into its corresponding Request_URI
 
-(define (http-url->uri-string http-url)
+(define (http-url->url-string http-url)
 
   (let* ((host (http-url-host http-url))
 	(scheme-and-host-string 
diff --git a/scheme/packages.scm b/scheme/packages.scm
index 4d41fd2..efbb626 100644
--- a/scheme/packages.scm
+++ b/scheme/packages.scm
@@ -65,7 +65,7 @@
 	  http-url-query
 
 	  uri-string->http-url
-	  http-url->uri-string))
+	  http-url->url-string))
 
 (define-interface ftp-library-interface
   (export copy-port->port-binary