Export flo:random-unit-{closed,open} and deprecate flo:random-unit.

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 546d9a6e68eeaf96341ce3fc4b975d1dada60594..7ed0c03e4eae80d0c63af65378c813717e47404e 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -3777,13 +3777,16 @@ USA.
 (define-package (runtime random-number)
   (files "random")
   (parent (runtime))
+  (export () deprecated:random
+         (flo:random-unit flo:random-unit-open))
   (export ()
          (random-source-state-ref export-random-state)
          (random-source? random-state?)
          *random-state*
          default-random-source
          export-random-state
-         flo:random-unit
+         flo:random-unit-closed
+         flo:random-unit-open
          import-random-state
          make-random-source
          make-random-state