From: Michael R. Blair <edu/mit/csail/zurich/ziggy>
Date: Mon, 5 Jun 2006 17:57:43 +0000 (+0000)
Subject: Just shoot me now.  FIXNUMs should continue to appear as signed data.
X-Git-Tag: 20090517-FFI~1029
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fb256e96ec057b0dbfbe9d99d379b77b5422b776;p=mit-scheme.git

Just shoot me now.  FIXNUMs should continue to appear as signed data.
---

diff --git a/v7/src/microcode/ppband.c b/v7/src/microcode/ppband.c
index 6fc254483..ff7211894 100644
--- a/v7/src/microcode/ppband.c
+++ b/v7/src/microcode/ppband.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ppband.c,v 9.62 2006/06/05 17:28:10 ihtfisp Exp $
+$Id: ppband.c,v 9.63 2006/06/05 17:57:43 ihtfisp Exp $
 
 Copyright (c) 1987-2006 Massachusetts Institute of Technology
 
@@ -449,7 +449,7 @@ DEFUN (Display, (Location, Type, The_Datum),
 
     case TC_FIXNUM:
       PRINT_OBJECT ("FIXNUM", The_Datum);
-      Points_To = (FIXNUM_TO_ULONG ((MAKE_OBJECT (Type, The_Datum))));
+      Points_To = (FIXNUM_TO_LONG ((MAKE_OBJECT (Type, The_Datum))));
       printf (" = %ld\n", ((signed long) Points_To));
       return;