From 37c7d776cbaef8e7985bdf851fb499eeb5c4de95 Mon Sep 17 00:00:00 2001
From: "Michael R. Blair" <edu/mit/csail/zurich/ziggy>
Date: Mon, 5 Jun 2006 13:08:08 +0000
Subject: [PATCH] Display TC_LIST as ``PAIR'' as per comment in "sdata.h".

---
 v7/src/microcode/ppband.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/v7/src/microcode/ppband.c b/v7/src/microcode/ppband.c
index 1955c4914..746856566 100644
--- a/v7/src/microcode/ppband.c
+++ b/v7/src/microcode/ppband.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ppband.c,v 9.57 2006/06/05 13:02:51 ihtfisp Exp $
+$Id: ppband.c,v 9.58 2006/06/05 13:08:08 ihtfisp Exp $
 
 Copyright (c) 1987-2006 Massachusetts Institute of Technology
 
@@ -382,6 +382,10 @@ DEFUN (Display, (Location, Type, The_Datum),
       NON_POINTER (Type_Names[Type]);
       break;
 
+    case TC_LIST:
+      POINTER ("PAIR");		/* See comment for LIST in "sdata.h". */
+      break;
+
     case TC_INTERNED_SYMBOL:
       PRINT_OBJECT ("INTERNED-SYMBOL", Points_To);
       printf (" = ");
-- 
2.25.1