From 17a46a7e715bed9cc522cdfc96bf122ce6d6efe4 Mon Sep 17 00:00:00 2001 From: vibr Date: Wed, 6 Apr 2005 11:35:37 +0000 Subject: [PATCH] rename URI-STRING->HTTP-URL to URL-STRING->HTTP-URL --- scheme/httpd/core.scm | 2 +- scheme/lib/url.scm | 2 +- scheme/packages.scm | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/scheme/httpd/core.scm b/scheme/httpd/core.scm index 614fd95..51b6f06 100644 --- a/scheme/httpd/core.scm +++ b/scheme/httpd/core.scm @@ -252,7 +252,7 @@ (else (fatal-syntax-error "Bad Request Line.")))) (meth (car elts)) (request-uri (cadr elts)) - (url (uri-string->http-url request-uri)) + (url (url-string->http-url request-uri)) (headers (if (equal? version '(0 . 9)) '() (read-rfc822-headers (socket:inport sock))))) diff --git a/scheme/lib/url.scm b/scheme/lib/url.scm index f68f0d1..6a26987 100644 --- a/scheme/lib/url.scm +++ b/scheme/lib/url.scm @@ -240,7 +240,7 @@ ;;; parse a HTTP 1.1. Request_URI into a http-url record -(define (uri-string->http-url uri-string) +(define (url-string->http-url uri-string) (call-with-values (lambda () (parse-url uri-string)) parsed-uri->http-url)) diff --git a/scheme/packages.scm b/scheme/packages.scm index 5aa44a0..0f332d4 100644 --- a/scheme/packages.scm +++ b/scheme/packages.scm @@ -64,7 +64,7 @@ http-url-path http-url-query - uri-string->http-url + url-string->http-url http-url->url-string http-url-path->path-string))