From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 Mar 2018 04:37:56 +0000 (-0700)
Subject: In pp, treat named list/vector specially.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~211
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7e86b85d50edb0126132442919aa9846b0cce2a6;p=mit-scheme.git

In pp, treat named list/vector specially.
---

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 "#"