Export FLO:RANDOM-UNIT from the random number generator.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index d635a3ac17ff67c2feb320fe4e047e1c51266829..5886b7bebb3bd15a8ca401b62121d99bf6cfb39b 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.226 1994/03/24 18:30:44 gjr Exp $
+$Id: runtime.pkg,v 14.227 1994/04/19 18:43:32 cph Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -1759,6 +1759,7 @@ MIT in each case. |#
   (parent ())
   (export ()
          *random-state*
+         flo:random-unit
          make-random-state
          random
          random-state?)

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index d635a3ac17ff67c2feb320fe4e047e1c51266829..5886b7bebb3bd15a8ca401b62121d99bf6cfb39b 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.226 1994/03/24 18:30:44 gjr Exp $
+$Id: runtime.pkg,v 14.227 1994/04/19 18:43:32 cph Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -1759,6 +1759,7 @@ MIT in each case. |#
   (parent ())
   (export ()
          *random-state*
+         flo:random-unit
          make-random-state
          random
          random-state?)