From 8b5c7aa7a064b7d163d43f9341ae8ec4118d4215 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 22 Jul 2003 02:35:06 +0000
Subject: [PATCH] Eliminate unnecessary usage of microcode version number.

---
 v7/src/sos/class.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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>)
-- 
2.25.1