From 9d7fc4e87eba9a7d7c5d51bbdd2c4e286657d0ae Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 29 Nov 1993 23:24:36 +0000 Subject: [PATCH] Remove definition of INT:->FLONUM since it is now exported from the arithmetic package. --- v7/src/runtime/random.scm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/v7/src/runtime/random.scm b/v7/src/runtime/random.scm index 29a88e801..36fafca58 100644 --- a/v7/src/runtime/random.scm +++ b/v7/src/runtime/random.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: random.scm,v 14.8 1993/10/14 10:13:58 cph Exp $ +$Id: random.scm,v 14.9 1993/11/29 23:24:36 cph Exp $ Copyright (c) 1993 Massachusetts Institute of Technology @@ -36,9 +36,6 @@ MIT in each case. |# ;;; package: (runtime random-number) (declare (usual-integrations)) - -(define-integrable (int:->flonum n) - ((ucode-primitive integer->flonum 2) n #b10)) ;;; A "subtract-with-carry" RNG, based on the algorithm from "A New ;;; Class of Random Number Generators", George Marsaglia and Arif -- 2.25.1