From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 24 Apr 1996 03:03:16 +0000 (+0000)
Subject: Move INT:->FLONUM from "arith" to "fixart" so that it will be
X-Git-Tag: 20090517-FFI~5575
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c5af9754ee30f5bbbe53bd094b8d1f2f5adb6ff4;p=mit-scheme.git

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 2d557dcc2..ffcb206f8 100644
--- 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 a5e07b0ef..3d55b0386 100644
--- 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