From 883c54e07765773cf3a30d9478c7f45e14747f39 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 30 Mar 2008 06:45:38 -0500
Subject: [PATCH] use srandom and prandom on openbsd /dev/random is reserved
 for hardware rngs..

---
 extra/random/unix/unix.factor | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/extra/random/unix/unix.factor b/extra/random/unix/unix.factor
index 51574887e3..f3f55007f0 100644
--- a/extra/random/unix/unix.factor
+++ b/extra/random/unix/unix.factor
@@ -1,6 +1,6 @@
 USING: alien.c-types io io.files io.nonblocking kernel
 namespaces random io.encodings.binary singleton init
-accessors ;
+accessors system ;
 IN: random.unix
 
 TUPLE: unix-random path ;
@@ -15,7 +15,14 @@ C: <unix-random> unix-random
 M: unix-random random-bytes* ( n tuple -- byte-array )
     path>> file-read-unbuffered ;
 
-[
-    "/dev/random" <unix-random> secure-random-generator set-global
-    "/dev/urandom" <unix-random> insecure-random-generator set-global
-] "random.unix" add-init-hook
+os "openbsd" = [
+    [
+        "/dev/srandom" <unix-random> secure-random-generator set-global
+        "/dev/prandom" <unix-random> insecure-random-generator set-global
+    ] "random.unix" add-init-hook
+] [
+    [
+        "/dev/random" <unix-random> secure-random-generator set-global
+        "/dev/urandom" <unix-random> insecure-random-generator set-global
+    ] "random.unix" add-init-hook
+] if