run bootstrap and startup hooks inside a with-destructors. use &dispose instead...

[factor.git] / basis / random / unix / unix.factor

diff --git a/basis/random/unix/unix.factor b/basis/random/unix/unix.factor
index b15b9ab8b9dc0032b0d7210b0bcb01ada4758e4c..fd93d6492cc73336460f934ad9a9ca2202cf2823 100644 (file)
--- a/basis/random/unix/unix.factor
+++ b/basis/random/unix/unix.factor
@@ -16,19 +16,12 @@ M: unix-random random-bytes* ( n tuple -- byte-array )
 
 os openbsd? [
     [
-        "/dev/srandom" <unix-random> secure-random-generator set-global
-        "/dev/arandom" <unix-random> system-random-generator set-global
+        "/dev/srandom" <unix-random> &dispose secure-random-generator set-global
+        "/dev/arandom" <unix-random> &dispose system-random-generator set-global
     ] "random.unix" add-startup-hook
 ] [
     [
-        "/dev/random" <unix-random> secure-random-generator set-global
-        "/dev/urandom" <unix-random> system-random-generator set-global
+        "/dev/random" <unix-random> &dispose secure-random-generator set-global
+        "/dev/urandom" <unix-random> &dispose system-random-generator set-global
     ] "random.unix" add-startup-hook
 ] if
-
-[
-    [
-        secure-random-generator get-global &dispose drop
-        system-random-generator get-global &dispose drop
-    ] with-destructors
-] "random.unix" add-shutdown-hook