From 854b24791cb7b6792afe7804d1785eb1d77bff9a Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 27 Jul 1995 00:12:36 +0000
Subject: [PATCH] Split fixnum type-codes.

---
 v8/src/microcode/ppband.c | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/v8/src/microcode/ppband.c b/v8/src/microcode/ppband.c
index c2d3bf161..6d09b6c6d 100644
--- a/v8/src/microcode/ppband.c
+++ b/v8/src/microcode/ppband.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ppband.c,v 9.47 1993/10/14 21:42:03 gjr Exp $
+$Id: ppband.c,v 9.48 1995/07/27 00:12:36 adams Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -100,6 +100,7 @@ DEFUN (Load_Data, (Count, To_Where), long Count AND SCHEME_OBJECT *To_Where)
 
 #define INHIBIT_COMPILED_VERSION_CHECK
 #define INHIBIT_CHECKSUMS
+#define outf_error printf
 #include "load.c"
 
 #ifdef HEAP_IN_LOW_MEMORY
@@ -299,7 +300,7 @@ DEFUN (Display, (Location, Type, The_Datum),
       }
       NON_POINTER ("NULL");
 
-    case TC_TRUE:
+    case TC_CONSTANT:
       if (The_Datum == 0)
       {
 	printf ("#T\n");
@@ -335,7 +336,8 @@ DEFUN (Display, (Location, Type, The_Datum),
       scheme_string (Points_To, true);
       return;
 
-    case TC_FIXNUM:
+    case TC_POSITIVE_FIXNUM:
+    case TC_NEGATIVE_FIXNUM:
       PRINT_OBJECT ("FIXNUM", The_Datum);
       Points_To = (FIXNUM_TO_LONG ((MAKE_OBJECT (Type, The_Datum))));
       printf (" = %ld\n", Points_To);
-- 
2.25.1