From ec999302138c061058d971c1eadacd13da21a490 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Wed, 15 Jan 2003 12:19:45 +0000
Subject: [PATCH] Rename HTTP-URL-FRAG-ID to HTTP-URL-FRAGMENT-IDENTIFIER.

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

diff --git a/scheme/lib/url.scm b/scheme/lib/url.scm
index 2446467..92a0042 100644
--- a/scheme/lib/url.scm
+++ b/scheme/lib/url.scm
@@ -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 ""))))
diff --git a/scheme/packages.scm b/scheme/packages.scm
index f1670ad..aaa5f96 100644
--- a/scheme/packages.scm
+++ b/scheme/packages.scm
@@ -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