Rename HTTP-URL-FRAG-ID to HTTP-URL-FRAGMENT-IDENTIFIER.

This commit is contained in:
sperber 2003-01-15 12:19:45 +00:00
parent f9474b7a16
commit ec99930213
2 changed files with 4 additions and 4 deletions

View File

@ -108,12 +108,12 @@
;;; a string, use (uri-path->uri (map escape-uri pathlist)).
(define-record-type http-url :http-url
(make-http-url server path search frag-id)
(make-http-url server path search fragment-identifier)
http-url?
(server http-url-server) ; Initial //anonymous@clark.lcs.mit.edu:80/
(path http-url-path) ; Rest of path, split at slashes & decoded.
(search http-url-search)
(frag-id http-url-frag-id))
(fragment-identifier http-url-fragment-identifier))
;;; The URI parser (parse-uri in uri.scm) maps a string to four parts:
;;; <scheme> : <path> ? <search> # <frag-id> <scheme>, <search>, and
@ -158,6 +158,6 @@
(cond ((http-url-search url) =>
(lambda (s) (string-append "?" s)))
(else ""))
(cond ((http-url-frag-id url) =>
(cond ((http-url-fragment-identifier url) =>
(lambda (fi) (string-append "#" fi)))
(else ""))))

View File

@ -77,7 +77,7 @@
http-url-server
http-url-path
http-url-search
http-url-frag-id
http-url-fragment-identifier
parse-http-url
parse-http-url-string