From e9be5c92fe15f980a1e48de6849c4f641d0b0b14 Mon Sep 17 00:00:00 2001
From: Matthias Felleisen <matthias@racket-lang.org>
Date: Wed, 30 Dec 2009 15:26:28 +0000
Subject: [PATCH] added (random) to ASL

svn: r17438
---
 collects/lang/private/advanced-funs.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/lang/private/advanced-funs.ss b/collects/lang/private/advanced-funs.ss
index 41954a4393..fa73ebbbc0 100644
--- a/collects/lang/private/advanced-funs.ss
+++ b/collects/lang/private/advanced-funs.ss
@@ -40,6 +40,8 @@
      "to create a single list from several"))
    
    ("Misc"
+    (random (-> (and/c real? inexact? (>/c 0) (</c 1)))
+            "to generate a random number between 0 and 1 (excl).")
     (force (delay -> any) "to find the delayed value; see also delay")
     (promise? (any -> boolean) "to determine if a value is delayed")
     (void (-> void) "produces a void value")