From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 18 Mar 2019 05:56:09 +0000 (-0700)
Subject: Eliminate unused handler for printing URIs.
X-Git-Tag: mit-scheme-pucked-10.1.11~6^2~32
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2d21f7aca1a8a4cbae81940e17ffb93d0c249b43;p=mit-scheme.git

Eliminate unused handler for printing URIs.
---

diff --git a/src/runtime/printer.scm b/src/runtime/printer.scm
index 4e53cb8c0..c68d67505 100644
--- a/src/runtime/printer.scm
+++ b/src/runtime/printer.scm
@@ -759,13 +759,7 @@ USA.
       (*print-char #\) context*))))
 
 (define (print-record record context)
-  (cond ((uri? record) (print-uri record context))
-	(else (*print-with-brackets 'record record context '()))))
-
-(define (print-uri uri context)
-  (*print-string "#<" context)
-  (*print-string (uri->string uri) context)
-  (*print-string ">" context))
+  (*print-with-brackets 'record record context '()))
 
 (define (print-pair pair context)
   (cond ((prefix-pair? pair)