Rename HTTP-URL-FRAG-ID to HTTP-URL-FRAGMENT-IDENTIFIER.
This commit is contained in:
parent
f9474b7a16
commit
ec99930213
|
@ -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 ""))))
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue