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 006a573fac395eb87dfd6d1848c1cf34f219817b..f4b384aee5d1494400968f25165a1a60b3fe369f 100644 (file)
--- 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 ba63300ae47db011771820bf6ca28864ec529d1b..e2e7d51b2f0abe79d5926596995639a347ba2f67 100644 (file)
--- 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))