From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 Sep 2008 05:36:53 +0000 (+0000)
Subject: Export WRITE-URI-AUTHORITY.
X-Git-Tag: 20090517-FFI~148
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=053ca3cef3eed29bab9835c1a43299ad99174eb5;p=mit-scheme.git

Export WRITE-URI-AUTHORITY.
---

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 5aed780ff..5fe36beb4 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.681 2008/09/15 07:07:31 cph Exp $
+$Id: runtime.pkg,v 14.682 2008/09/16 05:36:49 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -5158,7 +5158,8 @@ USA.
 	  url:char-set:unreserved
 	  url:encode-string
 	  write-partial-uri
-	  write-uri)
+	  write-uri
+	  write-uri-authority)
   (initialization (initialize-package!)))
 
 (define-package (runtime rfc2822-headers)
diff --git a/v7/src/runtime/url.scm b/v7/src/runtime/url.scm
index 79f03bab3..9b21620ea 100644
--- a/v7/src/runtime/url.scm
+++ b/v7/src/runtime/url.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: url.scm,v 1.57 2008/09/09 07:23:49 cph Exp $
+$Id: url.scm,v 1.58 2008/09/16 05:36:53 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -149,7 +149,7 @@ USA.
 		      (lambda (authority)
 			(list (call-with-output-string
 				(lambda (port)
-				  (write-authority authority port))))))))
+				  (write-uri-authority authority port))))))))
   (userinfo #f read-only #t)
   (host #f read-only #t)
   (port #f read-only #t))
@@ -601,7 +601,7 @@ USA.
 	(write scheme port)
 	(write-char #\: port)))
   (if authority
-      (write-authority authority port))
+      (write-uri-authority authority port))
   (if (pair? path)
       (begin
 	(if scheme
@@ -620,7 +620,7 @@ USA.
 	(write-char #\# port)
 	(write-encoded fragment char-set:uri-fragment port))))
 
-(define (write-authority authority port)
+(define (write-uri-authority authority port)
   (%write-authority (%uri-authority-userinfo authority)
 		    (%uri-authority-host authority)
 		    (%uri-authority-port authority)