From 7e86b85d50edb0126132442919aa9846b0cce2a6 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 14 Mar 2018 21:37:56 -0700
Subject: [PATCH] In pp, treat named list/vector specially.

---
 src/runtime/pp.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/runtime/pp.scm b/src/runtime/pp.scm
index 566bfad92..19e2a0acb 100644
--- 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 "#"
-- 
2.25.1