Change URI's printed representation to show the string as a Scheme

object.

diff --git a/v7/src/runtime/url.scm b/v7/src/runtime/url.scm
index 19e74bbcd81aabfcc8247b0e1a93a0ed2a6df436..b0797939b5c6e8bda6b5f538ee530dd9b3442f6e 100644 (file)
--- a/v7/src/runtime/url.scm
+++ b/v7/src/runtime/url.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: url.scm,v 1.37 2005/12/13 15:29:58 cph Exp $
+$Id: url.scm,v 1.38 2006/01/31 06:47:47 cph Exp $
 
-Copyright 2000,2001,2003,2004,2005 Massachusetts Institute of Technology
+Copyright 2000,2001,2003,2004,2005,2006 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -43,7 +43,7 @@ USA.
   (standard-unparser-method 'URI
     (lambda (uri port)
       (write-char #\space port)
-      (%write-uri uri port))))
+      (write (uri->string uri) port))))
 
 (define (make-uri scheme authority path query fragment)
   (let ((path (if (equal? path '("")) '() path)))