Export WRITE-URI-AUTHORITY.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 5aed780ff9cbdf0d82bcaea357e0fbcda4b4dd08..5fe36beb42e92fe2948e79e18a471039fb291c3b 100644 (file)
--- 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 79f03bab30c77b4686cf8dd1291d6e6600e57cee..9b21620ead8609c8c743d2f96616ef82b4169a44 100644 (file)
--- 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)