From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 19 Jul 2019 01:33:43 +0000 (-0400)
Subject: Teach pp to respect custom print methods for tagged vectors.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=92bceb65061f1d97365ac1f067958deb40650f26;p=mit-scheme.git

Teach pp to respect custom print methods for tagged vectors.

Manual cherry pick of c1c65b0b455d94e9932d2a01fd588d58e12841b5.
---

diff --git a/src/runtime/pp.scm b/src/runtime/pp.scm
index 006a573fa..f4b384aee 100644
--- a/src/runtime/pp.scm
+++ b/src/runtime/pp.scm
@@ -728,7 +728,9 @@ USA.
 
 (define (numerical-walk object list-depth)
   (define (numerical-walk-no-auto-highlight object list-depth)
-    (cond ((and (pair? object)
+    (cond ((get-print-method object)
+           (walk-custom object list-depth))
+          ((and (pair? object)
 		(not (named-list? object)))
 	   (let ((prefix (prefix-pair? object)))
 	     (if prefix
diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index ba63300ae..e2e7d51b2 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -4949,7 +4949,8 @@ USA.
 	  get-param:printer-list-breadth-limit
 	  get-param:printer-list-depth-limit
 	  prefix-pair?
-	  print-for-pp)
+	  print-for-pp
+          get-print-method)
   (export (runtime swank)
 	  user-object-type))