src/randomness.rkt: Use crypto-random-bytes.

Author: LiberalArtist

src/randomness.rkt

@@ -3,12 +3,9 @@
 (provide random-bytes
          random-bytes/base64)
 
-(require net/base64)
-
-(define (random-bytes n)
-  (with-input-from-file "/dev/urandom"
-    (lambda ()
-      (read-bytes n))))
+(require (rename-in racket/random
+                    [crypto-random-bytes random-bytes])
+         net/base64)
 
 (define (random-bytes/base64 n)
   (base64-encode (random-bytes n) #""))