In pp, treat named list/vector specially.

diff --git a/src/runtime/pp.scm b/src/runtime/pp.scm
index 566bfad9215dd11a1d339b95d3a7719d0289b716..19e2a0acb35cffbfad8d02cb86185fb3f30f50bd 100644 (file)
--- a/src/runtime/pp.scm
+++ b/src/runtime/pp.scm
@@ -731,7 +731,8 @@ USA.
 
 (define (numerical-walk object list-depth)
   (define (numerical-walk-no-auto-highlight object list-depth)
-    (cond ((pair? object)
+    (cond ((and (pair? object)
+               (not (named-list? object)))
           (let ((prefix (unparse-list/prefix-pair? object)))
             (if prefix
                 (make-prefix-node prefix
@@ -753,7 +754,8 @@ USA.
                                       (node-size rest))
                                    object
                                    rest)))
-         ((vector? object)
+         ((and (vector? object)
+               (not (named-vector? object)))
           (if (zero? (vector-length object))
               (walk-custom unparse-object object list-depth)
               (make-prefix-node "#"