From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 31 Jan 2006 06:47:47 +0000 (+0000)
Subject: Change URI's printed representation to show the string as a Scheme
X-Git-Tag: 20090517-FFI~1118
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a08e425222c470b8657f9c0718209bc583b28991;p=mit-scheme.git

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 19e74bbcd..b0797939b 100644
--- 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)))