Display TC_LIST as ``PAIR'' as per comment in "sdata.h".

diff --git a/v7/src/microcode/ppband.c b/v7/src/microcode/ppband.c
index 1955c4914cb090e66fb266bb3a721e973362e45c..7468565665ebe042d1ee8972a07378e8f42310be 100644 (file)
--- 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;
 \f
+    case TC_LIST:
+      POINTER ("PAIR");                /* See comment for LIST in "sdata.h". */
+      break;
+
     case TC_INTERNED_SYMBOL:
       PRINT_OBJECT ("INTERNED-SYMBOL", Points_To);
       printf (" = ");