From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 12 Nov 2018 07:03:27 +0000 (-0800)
Subject: Export flo:random-unit-{closed,open} and deprecate flo:random-unit.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~106
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a84a9c5cd3974f4303a547b08323af1e78f0d164;p=mit-scheme.git

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

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 546d9a6e6..7ed0c03e4 100644
--- 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