From 92bceb65061f1d97365ac1f067958deb40650f26 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 18 Jul 2019 21:33:43 -0400 Subject: [PATCH] Teach pp to respect custom print methods for tagged vectors. Manual cherry pick of c1c65b0b455d94e9932d2a01fd588d58e12841b5. --- src/runtime/pp.scm | 4 +++- src/runtime/runtime.pkg | 3 ++- 2 files changed, 5 insertions(+), 2 deletions(-) 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)) -- 2.25.1