Move INT:->FLONUM from "arith" to "fixart" so that it will be

available earlier in the cold-load sequence.

diff --git a/v7/src/runtime/arith.scm b/v7/src/runtime/arith.scm
index 2d557dcc2f08a7ff7efe61129b170a5ace5e53e7..ffcb206f87800d5c8ce719278d146b8b98e1a52c 100644 (file)
--- a/v7/src/runtime/arith.scm
+++ b/v7/src/runtime/arith.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: arith.scm,v 1.33 1995/11/03 22:44:19 adams Exp $
+$Id: arith.scm,v 1.34 1996/04/24 03:03:16 cph Exp $
 
-Copyright (c) 1989-94 Massachusetts Institute of Technology
+Copyright (c) 1989-96 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -52,9 +52,6 @@ MIT in each case. |#
 (define-integrable (int:bignum? object)
   (object-type? (ucode-type big-fixnum) object))
 
-(define-integrable (int:->flonum n)
-  (integer->flonum n #b10))
-
 (define-integrable (make-ratnum n d)
   (system-pair-cons (ucode-type ratnum) n d))
 

diff --git a/v7/src/runtime/fixart.scm b/v7/src/runtime/fixart.scm
index a5e07b0efaff490bf6e7479cb85113aa2adc6228..3d55b03869913c8b21fb851a91a7b28f8fd0fe37 100644 (file)
--- a/v7/src/runtime/fixart.scm
+++ b/v7/src/runtime/fixart.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: fixart.scm,v 1.1 1994/12/09 02:55:41 adams Exp $
+$Id: fixart.scm,v 1.2 1996/04/24 03:03:00 cph Exp $
 
-Copyright (c) 1988-1994 Massachusetts Institute of Technology
+Copyright (c) 1988-96 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -128,4 +128,7 @@ MIT in each case. |#
   (not (int:> x y)))
 
 (define-integrable (int:>= x y)
-  (not (int:< x y)))
\ No newline at end of file
+  (not (int:< x y)))
+
+(define-integrable (int:->flonum n)
+  ((ucode-primitive integer->flonum 2) n #b10))
\ No newline at end of file