From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 16 Jul 1997 02:51:07 +0000 (+0000)
Subject: Conditionalize fixnum dependency for allow single file for 7.4 and 8.0
X-Git-Tag: 20090517-FFI~5044
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e20c331ef1b106f6e15db332961f494286d9deea;p=mit-scheme.git

Conditionalize fixnum dependency for allow single file for 7.4 and 8.0
---

diff --git a/v7/src/microcode/uxtrap.c b/v7/src/microcode/uxtrap.c
index 44b100b89..17fed9527 100644
--- a/v7/src/microcode/uxtrap.c
+++ b/v7/src/microcode/uxtrap.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: uxtrap.c,v 1.26 1995/07/27 00:35:24 adams Exp $
+$Id: uxtrap.c,v 1.27 1997/07/16 02:51:07 adams Exp $
 
 Copyright (c) 1990-1993 Massachusetts Institute of Technology
 
@@ -746,7 +746,13 @@ DEFUN (find_block_address_in_area, (pc_value, area_start),
 	      return
 		(((area == first_valid) ||
 		  (((OBJECT_TYPE (*block)) != TC_MANIFEST_VECTOR)
-		   && ((OBJECT_TYPE (*block)) != TC_POSITIVE_FIXNUM))
+		   && ((OBJECT_TYPE (*block)) !=
+#ifdef TC_POSITIVE_FIXNUM
+		       TC_POSITIVE_FIXNUM
+#else
+		       TC_FIXNUM
+#endif
+		       ))
 		   ||
 		  ((OBJECT_DATUM (*block)) < (count + 1)) ||
 		  (! (PLAUSIBLE_CC_BLOCK_P (block))))