Add flonum operations FLO:<= FLO:>= FLO:MAX FLO:MIN.

diff --git a/v7/src/runtime/fixart.scm b/v7/src/runtime/fixart.scm
index 08c0780335da11f6f43947de63892448928b6d8e..7d172ca6637093d6e290f992f7859bc57add8eb1 100644 (file)
--- a/v7/src/runtime/fixart.scm
+++ b/v7/src/runtime/fixart.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: fixart.scm,v 1.4 1999/05/07 19:47:25 cph Exp $
+$Id: fixart.scm,v 1.5 2000/03/16 17:13:29 cph Exp $
 
-Copyright (c) 1988-1999 Massachusetts Institute of Technology
+Copyright (c) 1988-2000 Massachusetts Institute of Technology
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -124,4 +124,16 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   (not (int:< x y)))
 
 (define-integrable (int:->flonum n)
-  ((ucode-primitive integer->flonum 2) n #b10))
\ No newline at end of file
+  ((ucode-primitive integer->flonum 2) n #b10))
+
+(define-integrable (flo:<= x y)
+  (not (flo:> x y)))
+
+(define-integrable (flo:>= x y)
+  (not (flo:< x y)))
+
+(define (flo:min n m)
+  (if (flo:< n m) n m))
+
+(define (flo:max n m)
+  (if (flo:> n m) n m))
\ No newline at end of file