From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 22 Jul 2003 02:35:06 +0000 (+0000)
Subject: Eliminate unnecessary usage of microcode version number.
X-Git-Tag: 20090517-FFI~1862
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8b5c7aa7a064b7d163d43f9341ae8ec4118d4215;p=mit-scheme.git

Eliminate unnecessary usage of microcode version number.
---

diff --git a/v7/src/sos/class.scm b/v7/src/sos/class.scm
index aec11f2b3..8b9747d85 100644
--- a/v7/src/sos/class.scm
+++ b/v7/src/sos/class.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: class.scm,v 1.16 2003/03/13 03:10:20 cph Exp $
+$Id: class.scm,v 1.17 2003/07/22 02:35:06 cph Exp $
 
 Copyright 1995,1997,2002,2002,2003 Massachusetts Institute of Technology
 
@@ -375,11 +375,11 @@ USA.
   (assign-type 'PROCEDURE <procedure>)
   (assign-type 'ENTITY <entity>)
 
-  (if (> microcode-id/version 11)
+  (if (fix:= (object-type 1) (object-type -1))
+      (assign-type 'FIXNUM <fixnum>)
       (begin
 	(assign-type 'POSITIVE-FIXNUM <fixnum>)
-	(assign-type 'NEGATIVE-FIXNUM <fixnum>))
-      (assign-type 'FIXNUM <fixnum>))
+	(assign-type 'NEGATIVE-FIXNUM <fixnum>)))
   (assign-type 'BIGNUM <bignum>)
   (assign-type 'RATNUM <ratnum>)
   (assign-type 'FLONUM <flonum>)