Eliminate unnecessary usage of microcode version number.

diff --git a/v7/src/sos/class.scm b/v7/src/sos/class.scm
index aec11f2b3ce84d250b9a247fe0d853512c50aed1..8b9747d854ea7362035c667515eb28c00efde334 100644 (file)
--- 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>)