From: Michael R. Blair <edu/mit/csail/zurich/ziggy>
Date: Mon, 5 Jun 2006 13:08:08 +0000 (+0000)
Subject: Display TC_LIST as ``PAIR'' as per comment in "sdata.h".
X-Git-Tag: 20090517-FFI~1034
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=37c7d776cbaef8e7985bdf851fb499eeb5c4de95;p=mit-scheme.git

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 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 (" = ");